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MODULE RMBDELETE (LANGUAGE (BL 18532) 
IDENT = *V04=600" 
= 
BEGIN 


LEAR 


. 
ROR RARER EAA AAA AREA AAA AAAAAAE EAE A AREA EEE A EATER AAAAEAAEATE RAAT 


3 1 s 
§ 9 
3 4 0 $ 
; 5 0 1 $ 
Pee Be : 
3 : * 3 
3 8 B28 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
3 0009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « $ 
3 + Baio } » ALL RIGHTS RESERVED. * 3 
4 . t ° 
3 \¢ Boi¢ 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 3 
ih 13.1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
; 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * é 
s 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
s Bote 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 
3 i gett ! it TRANSFERRED. * $ 
3 ! * g 
ry WW 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
3 $3 + 1 : it CORPORATION. * 3 
; ' * 3 
3 $¢ 00 i 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
3 $¢ 65 ¢ : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * $ 
3 ‘ ‘ 3 
a 00 $ 1 Ie * 3 
3 si it $4 : Lee RARER AREA AREA AREA AAA AAA : 
> 29 9029 1 !+¢ ; 
3 Ht 0030 1! 3 
: 3) O03 ! FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION : 
: 3§ $033 1 | ABSTRACT: : 
; $e Oose } : This module handles the deletion of index sequential records. ‘ 
: 36 0036 1! : 
3 7 0037 1! 3 
3 8 0038 1 ! ENVIRONMENT: 3 
3 9 0039 1! 3 
: 40 0040 1! VAX/VMS OPERATING SYSTEM é 
3 $) sed ! : 
; rk $008 e : 
; 44 Bote 4 : 
: 45 45 1 ! AUTHOR: Todd M. Katz CREATION DATE: 14-Jul-1982 3 
; 646 R266 1! 3 
3; 47 0047 1! 3 
; 68 0048 1 ! MODIFIED BY: F 
; | «649 0049 1! 3 
;° = 3930 7 3 v03-025 JwT0181 Jim Teague 15-May-1984 3 
oy oe 051 1! RM$SQUISH moves too many bytes when squishing the : 
: 26 O26 ! the data portion out of deleted records. : 
: 2 054 1! v03-024 DASO001 David Solomon 25-Mar-1984 : 
; 2? be? : Fix broken branch to RM$RU_JOURNAL3S. ; 
: 3§ iets 1: v03-023 MCNO003 Maria del C. Nasr 04-Apr-1983 : 


RMSDELETE 1-10-1984 3 AX-11 Bliss- 0-74 
iret eet a Bet Peat aa Page 48 


: es 35 ! ite! Linkage of RMSNULLKEY to RLSJSB. : 
: 60 60 1: v03-022 THKOO Todd M 26-Mar-1983 : 
.. 061 1! change th the gp inkese for *RAShG JOURNALS from RLSRABREG. 467 to : 
: ? 6 : RLSRABREG_ : 
: 64 064 1! v03-021 MCNOO 02 Maria del C. Nasr 24-Mar-1983 ; 
: o? Ose : } More Linkages ipa ent : 
: 67 $j V03-020 RASO135 Ron Schaefer 17=mar-1983 : 
: re 643 : Fix Wi of RJRS$ beter ‘> RJRS_DELETE. : 
: 70 $090 1 i v03-019 THK 001 Todd ™ 16-Mar-1983 : 
; 0071 1! change. the Linkage for “ARSRO. JOURNAL3 from RLSRABREG. 67 to F 
: f Bn r6 } RLSRABREG_467. : 
; «ff 0074 1: v03-018 TMKOO11 Todd 16-Mar-1983 : 
: a Bare : Change the symbol RMSRS$ Deter to RJR$_DELET. : 
: #77 0077 1 i v03-017 MCNO001 Maria del C. Nasr 24-Feb-1983 : 
: S ite : Reorganize Linkages : 
: 80 080 1: v03-016 TMKO010 Todd M. Kat -1983 ; 
s; #8 081 1! Add support for Recovery unit Journal ting» an RU ROLLBACK 3 
: : eit ; } Recovery of ISAM files. This support includes: : 
: B84 0084 1: 1. The restructuring of RMSDELETE3B $0 that the primary data : 
; 685 0085 1! record is unpacked and available for RU squcneth ing before 3 
: 86 Bons : any part of the file is permanently modifi : 
: 8B 0088 1! 2. The RU Journalling of all $DELETEs which occur on RU ; 
: 4 494 : Journalled files within Recovery Units. : 
: 91 0091 1 3. Modifications to RMSDELETE_RRV, RMSSQUISH. SIDR, and : 
; & 0092 1! RMSDELETE_UDR $9 that no space is reclaimed ie records of : 
; #9 0093 1! RU journalled files are SDELETEd within Recovery Units. The 3 
; «694 0094 1! RRV, primary data record, or SIDR array element is just F 
3 99 0095 ; marked RU_DELETE instead. : 
: 97 0097 1: 4. Modifications to RMSDELETE_RRV, RMSSQUISH_SIDR, and : 
; | «98 0098 1: RMSDELETE_UDR so that RRVs, primary data records “and SIDR : 
2 oe 099 1! array elements maybe un-delered during ROLLBACK of F 
: 19 1 : } prematurely terminated or aborted Recovery Units. : 
: 108 19¢ 13 5. The addition of a second parameter (SCAN) to RMSSQUISH_SIDR. : 
: 10 0103 1! If this parameter is 1 on entry, RMS will scan the entire | 

: 104 0104 1! SIDR array looking for non-deleted elements even if no 

s 105 105 1! ou Licates are allowed in the key of reference. If SCAN is 0 

3 196 196 1 : will lnnediately delete the fatire SIDR as was the case 

; 135 1° : } Ee ng 

: 109 109 1 | vO3-015 TMKO009 05-Jan-1983 | 

s 110 110 1! The routine RMSDELETE™ =S1DR a longer calls the routine 

s 3t7 111 1! RMSFND_SDR_ARRY to poSition to the SIDR element it is to 

: i's iN ! delete. It™now performs its own positioning. 

: 114 bia 1 v03-014 TMKO008 Todd M. Katz 07-Dec-1982 
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122860748 4 94:59:78 RMS SROIR DELEvE: 8304 
Change the order in which the vor teys parts of a record are 
deleted during a SDELETE. First, ¢ minate the RRV. Next 

eliminate the user cate record. Finally, the alternate keys 

which are represented in the er jncry data record are removed. 
Previously, the SIDRs were eliminated before the ge ky data 

record, and during this time a lock was kept on the the primary 

data bucket. This meant that a bucket lock was being held for 

quite a long time, and that the routine that positioned to a 

primary data record by means of an alternate index had to be 

enhanced with a very complex and very large SIDR re-positioning 

routine, so that the 1.5 SIDR deadlock case would not exist in 

version 4. Changing the order of events that take place during 

a SDELETE allowed a change in the bucket Logk strategy which 

had the dual benefits of eliminating the 1.5 SIDR deadlock 

case without the expensive SIDR re-positioning code, an 

reducing the amount of time a lock on the primary data bucket 

is kept to a minimum - which is an overall ISAM design goal. 


This change is not without its cost. The reason why the old 
strategy was orginally implemented, was so that the primary 
data record would be available for the extraction of the 
alternate we 
eliminated. Changing the bucket locking ptratesy such that 

the primary data record is deleted and the buc 

before the SIDRs are deleted means that the primary data record 
must be saved in an auxillary record buffer before it is deleted 
so that it will be available for alternate key extraction. 
However, this change is not as expensive as it might seem 
because if the file's prologue version is 3, the hie data 
record would have to be unpacked into this same record buffer 
before the keys could be extracted anyway. Thus, it was a 

simple matter of unpees a either sooner or Later. Any 
additional cost_incurred by this new etratesy is born solely by 
prologue 1 and 2 files which previously could extract the 
alternate keys without moving the princes data record, and now 
must perform an additional MOVC3. However, the benefits derived 
from this new strategy more than ooh ps the cost of this 
additional MOVC3 required in the case of a prologue version 
which will hopefully fade out of use. 


TMK0007 Todd M. Katz 06-Dec-1982 

The routine RMSSQUISH_SIDR was recovering the space occupied 

by a SIDR whenever duplicates were allowed and all the elements 
in the SIDR were deleted even if the SIDR occupied the 

phys tcoriy last position in the SIDR bucket. This had the 
possibility of creating totally onpty SIDR buckets, and the 
encountering of a totally empty SIDR bucket during a 
positioning for insertion when duplicates are allowed can not 
always be correctly handled. Thus, a bug existed in the 

SDELETE code which had capability of corrupting SIDR indicies. 


To fix this code I have decided that the space occupied by the 
physically Last SIDR in the bucket can never be recovered even 
if all the elements in the array are deleted when duplicates 
lternate keys are allowed. At best, if the file is a protogue 
file, and the element is not the first element in the SID 
array, the space occupied by the RRV pointer can be recovered. 
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This fix which I have saplopentes by ght the routine 
RM$SQUISH_SIDR (both to eo the fix and to optimize the 
existing code) guarentees both that empty SIDR buckets can 
never be created when duplicate SIDRs are allowed, and that NRP 
positioning context is maintained. 


| 
| 
v03-012 TMK0006 Todd M. Katz 14-Nov-1982 

The routine RMSDELETE_UDR no longer has to return a value. 

Previously, it was returning a value because the routine that 

was responsible for reclaiming space occupied by records that 

were just marked deleted needed to know whether or no an 

RRV had been created in the place of the reclaimed record. 

This is no longer the case, as that routine has been modified 

to no longer require this piece of information. 


vO3-011 TMKOOOS Todd M. Katz 12-Nov-1982 
The routine RMSFND_SDR_ARRY requires as rep nett input the key 
size of the SIDR if is to position to in IRB$B_KEYSZ. The 
routine RMSDELETE_SIDR was not setting up the TRAB cell with 
the key size before colt tag this routine. Therefore, the 
possib ti | existed that RASFND_SDR_ARRY would position to 
the wrong SIDR array, which would then be deleted. This in fact 
has been seen, during the course of an SUPDATE when the old 
ng er have been changed are removed, and this fix corrects 

s problem. 


v03-010 TMKO004 Todd M. Katz 11-Nov-1982 . 
When SIDRs must be deleted and the file is a tty pee 3 file, 
the record must be unpacked so that the alternate keys can be 
extracted. If RMS positioned by the primary key of reference 
then it will already have a fully expanded copy of the priaery 
key in keybuffer 1, and it can use this in the unpacking of the 
record instead of scanning the bucket to re-expand the primary 
key when primary key compression is enabled. There is one 
case when it can not use the primary key in keybuffer 1 Like 
this, and that is when the record vag deleted is not the same 
as the current primary data record. This happens when RMS 
randomly SFINDs a record since this operation does not update 
the NRP conext. I was not checking for this case and this fix 
remedies this. 


v03-009 TMKO003 Todd M. Katz 06-0c t-1982 

When I completely re-wrote this routine (TMKO001), I broke 

the deletion of prologue 5 fixed pongrh records, _in certain 

cases, because I had assummed that all prologue 5 records 

included as part of their record overhead a record size field 

that needs to be updated when the portion of the prologue 

or snary data record occu isd by the data is reclaimed. I thought 

had fixed this in TMKO002 (although | forgot to mention it in 

the audit trial), but actually all I did was fix one SDELETE 
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case and break others that occur more fre Mentty What I did 
was to make the assunmption that all fixe lene h prologue 3 
records do not include a record once field. This too is 
incorrect. Actually, if a prologue 3 record with fixed length 
records has either key or data compression (or both) enabled, 
then there is a record size field present as part of the 

record overhead. If both compression types are disabled and the 
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; 9 8 7 oes record is fixed size then there is no need for a record size | : 
: 0 o i} field and one is not present. I was not checking any compression : 
3 1 0231 1! bits, but rather, just for a fixed Lengte tg format, before : 
; é 0 ¢ 1! deciding whether or there was a record $i get ield to update and : 
3 ? 8 ? : } this is what caused the problem in TMKO000 : 
; 5 0235 1! v03-008 TMKO002 Todd M. Kate 04-Sep-1982 | ; 
: 0236 1! Add support for prologue 3 SIDRs. This involves changes 5 
: i 8 : only to the routine RM$SQUISH_SIDR. : 
; 9 0239 1! The field IRB$B_SRCHFLAGS is now a word. Change all references : 
; re 8 re : to it. ; 
: og 0 5 1! v03-007 KBT0162 Keith B. Thompson 21-Aug-1982 3 
3 sti 8 re : } Reorganize psects : 
: se? 8 $2 } v03-006 TMKOO001 Todd M. Katz 02-Jul-1982 : 
: 247 ose$ - New version of SDELETE. This module now Ly Nepean all F 
; 248 0248 1! the routines which were formerly in RM3DELSDR : 
; $28 0249 1! 3 
; 250 0250 1 !eeene : 
$ gol 0251 1 : 
; $26 OS 2¢ 1 LIBRARY ‘RMSLIB:RMS'; : 
$ $2 0253 1 : 
; 54 B60 1 REQUIRE "RMSSRC:RMSIDXDEF'; : 
3 €29 0319 1 : 
; 256 0320 1 ! Define default PSECTS for code. : 
, gor 0321 1! 3 
; 258 0322 1 PSECT F 
; 259 0323 1 CODE = RMSRMS3(PSECT_ATTR), : 
; 260 0324 1 PLIT = RMSRMS3(PSECT TR); : 
; 261 0325 1 : 
3 $o¢ 0326 1 ! Linkages. ; 
; 2 0327 1! : 
3: 264 0328 1 LINKAGE 3 
: 265 0329 1 L_ERROR_LINK1, : 
; 266 0330 1 a 3 
; 267 0331 1 L-J$B01 F 
; 268 033¢ 1 L“LINK_?_10_11, : 
3; env 0333 1 L-PRESERVE1, $ 
; er 0334 1 L-RABREG, ; 
; $7) 0335 : L. RABRe e- -4567, : 
: 3 ee ce: 
s 276 0338 1 L-RABR FG. 7, 3 
s 275 0339 1 L-REC COVA D $ 
: 276 0340 1 L“SIDR_FIRST, ; 
: 277 341 1 : 
: 278 Hr 1 ' Local Linkage 3 
: 279 343 1 ! 3 
; 80 Ose 1 RLSDEL -ALL_SIDR = JSB () : 
> 281 0345 1 : GLOBAL (R_REC_ADDR,R_IDX_DFN,COMMON_RABREG) , ; 
; see O3t$ 1 RLSSQUISH_DATA = "JSB ) : 
; 83 O34? : GLOBAL(R_REC_ADDR,R_BKT_ADDR,R_IDX_DFN,R_IFAB); ; 
: $B $349 1 ! External Routines : 
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: 01! 

: ey p 1 EXTERNAL ROUTINE 

: a 1 RMSCLEAN_BDB : RLSERROR_LINK1, 

; 289 0 1 RMSCSEARCH TREE : RLSRABREG 67, 

3 $s 0 : ! M D_REY $B0 

: 29 56 1 RMSFIND BY_TD RLSRABRE I, 

; 29 3 1 RMSGET REXT KEY : RLS kefat ‘St, 

> 294 $26 1 ste, iy Sl ARRAY : At SRA 

> 295 0359 1 DESC : Serpe 

: 296 0360 1 sates By : RLSPRESERUEL, 

: 297 6 61 1 RMSNULLKEY : RLSJSB, 

: 298 6¢ 1 RMSREC_OVHD : AL SREC OVHD 

; 299 0363 1 RMSRECORD_ID : RLSRABREG 67, 

3 300 0364 1 RMSRECORD-KEY : RLSPRESERVE1, 

; 301 0 65 1 RMSRECORD—VBN : RLSPRESERVE!, 

; 0¢ 366 1 RMSRLSBKT~ : RLSPR ESERV 

: 30 0367 1 RMS$RU_JOURNAL3 : RLSRABREG Ver" ADDRESSING_MODE( LONG_RELATIVE ), 
; 304 0368 1 RM$SIBR_END : RLSRA 7 

: 305 0369 1 RMSSIDR-FIRST : ALS IBF FIRST, 

3; 306 0370 1 RMSUNPACK REC : RL$JSB 

; 307 0371 1 RMSUPDDELCOM : RLSRABREG_67; 

: 308 O37¢ 1 

; 309 0373 1°! Forward Routines 

: 310 0374 1: 

: 311 0375 1 FORWARD ROUTINE 

; 312 0376 1 RMSDELETE_RRV : RLSRABREG_4567, 

; 313 0377 1 RMSDELETE-SIDR : RLSRABREG_7 

: 314 0378 1 RMSDELETE_UDR RLS$RABREG_4567 NOVALUE, 
: 315 0379 1 RMSSQUISH-DATA : RLSSQUISH"DATA NOVALUE, 
: 316 0380 1 RM$SQUISH~SIDR : RLSRABREG_567; 


RMSEXPAND _REYD : RL$J ~ 
RRSEXT ARRY RA : RUSRABREG_67 


RM3DELETE 
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; 3 1 1 2SBTTL ‘RMSDEL_ALL_SIDR' ; 
: 1? § ! ROUTINE RMSDEL_ALL_SIDR (RECORD_SIZE) : RLSDEL_ALL_SIDR NOVALUE = : 
: 321 4 1 t+ : 
; ¢ Bet ; 
: ? § ! FUNCTIONAL DESCRIPTION: : 
; 5 8 1/ The purpose of this routine is to delete every SIDR array element ; 
; 6 89 1! pointing to the the current primary data record. Towards this goal : 
: 7 0390 1! every secondary key represented in the current primary data record : 
; 8 0391 1! is in turn extracted from the current rhe data record which has : 
: 9 8 3 1! been saved (in an unpacked form if prologue 3) in a record buffer, used ; 
: 0 as es to position to the SIDR orrer element pointing to the current primary : 
: 1 Baoe 1! data record in the appropriate index, and that array element is é 
3 ; 8 95 1! deleted. If the current primary data record does not possess one or $ 
3 35 409 1! more secondary keys either because the record is not of sufficient size : 
; 4 0397 1! or the key is null, or if a fast delete is requested and duplicates of 3 
3 5 0398 1! one or more secondary keys are allowed, then the deletion of those 3 
: 3 +244 : } secondary keys are bypassed. : 
; 38 0401 1 | CALLING SEQUENCE: : 
: 49 oc0$ ; RMSDEL_ALL_SIDR() 3 
; 4@ 0405 | INPUT PARAMETERS: : 
; 346 g4g7 1 i RECORD_SIZE - size of the user data record in IRBSL_RECBUF 
3 sc? 0409 1 { IMPLICIT INPUTS: | ; 
: re bets } IDX_DFN - index descriptor for the primary key 
i 389 Oc1s | | AB - address of the IFAB F 
3 30) 0414 1! IFB$W_KBUF SZ - size of each of the keybuffers F 
3 326 Ret? : IFB$B_PLG_VER - prologue version of the file : 
: 354 0417 1! IRAB - address of the IRAB | ; 
: 355 0418 1! IRBSi_KE YBUF - address of the contigious keybuffers : 
3 357 pele ' IRB$L_RECBUF - address of record unpacking buffer : 
; 358 be54 1! - address of the RAB : 
; 359 bes§ : RABSV_FDL - if set, fast-delete requested : 
: 361 0634 1 | OUTPUT PARAMETERS: : 
; 2 425 1! NONE 3 
; 04 $ 1! : 
; 64 4 1 ! IMPLICIT OUTPUTS: : 
; 365 428 1 | NONE : 
; $9 430 1 | ROUTINE VALUE: ; 
: 6 431 1! NONE : 
; 36 oc32 1 i | ; 
; 4 O43 : } SIDE EFFECTS: | : 
: 37 435 1! AP and REC_ADDR are trashed. 
3 7 04 § 1! Keybuffer 2 contains the key of the Last SIDR deleted. | 
3: 374 0437 1! 

| 
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RMSDEL_ALL_SIDR Haat 9} 84:49 CAMS .SRC RM DELEYE 63274 ’ (2) 
3; 375 4 1 I< 
oe, 635 1 | 
3; a 44 BEGIN 
.. 2 44 
s Sr 4 BUILTIN 
3 0 44 AP; 
$ 1 444 
: § 445 EXTERNAL REGISTER 
; 38 <79 AB_STR, 
3 rf 44 R_IDX_BFN_STR 
; 385 448 R-REC_ADDR_STR; 
3 4 a4 
; 38 450 LABEL 
3 4 Bee) BLOCK; 
3 4 0238 Delete all of the secondary keys present in the current user data record. | 
; iP bees WHILE RMSGET_NEXT_KEY() 
; Be 28 dO 
: 394 045 
; 395 0458 ! Each secondary key in the file will in turn become the ‘‘current’’ 
; 396 0459 ! secondary key for the purpose of deleting its representative in the 
3 144 Reed } current primary data record from the appropriate index. 
: 399 Boog BLOCK: BEGIN 
; 400 046 
; 401 0464 ' If a fast-delete is requested, terminate the deletion of the current 
; 40 0465 ' secondary key only if this secondary key allows duplicates. If this 
; 40 0466 ! secondary key does not allow duplicates, then a fast delete of it can 
3; 404 0467 ' not be done, since the error caused by a later attempt to insert a 
; 405 0468 ' record with a secondary key that is a duplicate of this one would go 
; 406 0469 ' undetected. 
: 407 0470 ‘ 
; 408 0471 IF .RABCRABSV_FDLJ 
; 409 047 
: 410 047 - 1IDX_DFNCIDXS$V_DUPKEYS] 
: 6411 0474 
; 216 0475 LEAVE BLOCK; 
3 (41 Bees Tee 
; 416 7 ! Check that the current primary data record is of a sufficient size to 
: 415 0478 ' include the current secondary key. If it is not, terminate the 
3 213 ot 44 deletion process for this secondary key. 
; 213 1 IF .RECORD_SIZE<0, 16> LSSU .IDX_DFNCIDXSW_MINRECSZ) 
3; «641 ; THEN 
3 ? rey LEAVE BLOCK; 
3 6 § 85 ! In preparation for positioning to the SIDR array element for this 
3 § ' secondary key of the current primary data record, the secondary key 3 
3 : : must be extracted into keybuffer 2. | 
i 426 89 REC_ADDR = .JRABCIRBSL_RECBUF I; 
; 428 491 ! If this secondary hoy for the current primary data record is null, 
; 429 3 ' there will not be a SIDR array element in this index pointing to the 
; 4 9 ' current primary data record. Therefore, there is no need to continue 
3; «431 94 ! with the process of deleting the current secondary key's 
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} representative in the current primary data record. 
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rx 
oOo 


$gs3 


ARON AAAS BB EH EAI AAI 


AP = 0; 
If NOT RMSNULLKEY (.REC_ADDR) 
LEAVE BLOCK; 


! Extract out the current secondary key from the current primary data 
record, and place it in keybuffer 2. 


AP = 3; 

BEGIN 

GLOBAL REGISTER 
R_BDB; 


| 
ee 
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RMSRECORD_KEY (KEYBUF_ADDR(2)):; 


! Position to and delete the SIDR array element petnetag to the current 
primary data record for this secondary key from the file. 


RMSDELETE_SIDR(); 
END; 


PROKY 


COOOooooooooe 
waawaltalvalval ab val tab ealealeal 


. I 
-EXTRN RMSSIBR_FIRST, RMSUNPACR_REC 
-EXTON RMSUPDDELCOM 


.PSECT RMSRMSS,NOWRT, GBL, PIC.2 
54 DD 00000 RMSDEL_ALL SIDR: 
00006 30 00002 1$: BSBW RMSGET NEXT _KEY 
50 B RO, 3$ 
04 04 AB 06 £1 8 a6 4(RAB), 2$ 
FI 1c OA? OE BLBS § 28C1DX_DFNS, 1$ 
22. (AP 08 AE : 28: CHPW  RECORD_SIZE. 34 (1DX_DFN) 
D 104(IRAB), REC_ADDR 
D C AP 
D PUSHL REC_ADDR 


reas 


; Routine Size: 


RMSDEL_ALL_SIDR 


67 bytes, 


Routine Base: 


RMSRMS3 + 0000 


w$ep-1986 $$:09:19 


AX-11 Bliss- 4.05749 
RMS.SRCIRM oF eve B32; 

RMSNULLKEY 

#4, SP 

RO. 1$ 

#3. AP 

1B86(1F AB) RO 

a96(1RAB) ERO 


RM RECORD_KEY 
RMSDELETE. SIDR 
#AM<R4> 
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RM3DELETE 1-3 #1986 01:42:3 AX-11 Bliss-32 V4.0-74 eee 11 
vitae ts RMSDELETE38 1erep-13ke SSgFiFS | HAMS SRO Ss see YE 85544 wr 
XSBITL 'RMSDELETE3B° 

GLOBAL ROUTINE RMSDELETE3B : RLSRABREG = 


e+ 
' 


! FUNCTIONAL DESCRIPTION: 


This routine directs the deletion of the current primary data record. 
To establish a current record, a $GET or SFIND is done. Fast delete 
(SIDR entries are not deleteds can only take place when duplicates are 
allowed. This is because allowing SIDR entries to not be deleted when 
duplicates were not allowed, would mean that the the error condition 
inserting duplicate when not allowed’’ could not be detected. 


The steps involved in deleting the current record are as follows: 


1. If the file defines alternate keys or is being RU Journalled, save 
the primary data record in a record buffer. If the file is a 
prologue 3 file then the primary data record will be saved in 
unpacked format. 


~ 
© 


Delete the RRV. The space it occupies maybe completely reclaimed 
if the file is a press ue 3 file; otherwise, just the space 
occupied by the RRV pointer is recovered. 


3. Delete the user data record. This may involve just machine it 
deleted, ol tainating just the data portion (prologue 3 only), or 
eliminating the entire record depending upon the _ ue version 
of the file, whether duplicate primary keys are allowed, and whether 
_— the wet, data record is physically the last record in the primary 

ata bucket. 


i 
| 
| 
| 
4. Delete all pocondery keys (unless fast delete is set and duplicates 

are allowed). The SIDR will be cenpheteny deleted if duplicates 

are not allowed, but if duplicates are allowed the SIDR element will 

just be marked deleted and the space uccupied by the RRV pointer 

reclaimed if the file is a prologue 3 file. 


NOTE: If this operation is occurring on a RU Journalled file within a 
recovery unit then the RRV piisery data record, and all SIDR 


elements are marked IRCS$V_RU DEL and no space is reclaimed. 


PDREXPEDSA Ass £ BS BB BE BE AAAI Irnororeorernornonor 


o 


CALLING SEQUENCE: 
RMSDELETE3B() 
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a 
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a a ee ee ee ee ee ee ee ee a a a ee a ad ad ad 


499 
500 

3 

08 

04 
202 6 

06 6 INPUT PARAMETERS: 

0 6 NONE 

08 7 

14 IMPLICIT INPUTS: 

11 7 IF AB - address of IFAB 

\ 7 IFBSB_NUM_KEYS - number of keys in the file 

1 7 IFBSB_PLG_VER - grote ue version of the file 
\ i IFBSV_RUP - if set, Recovery Unit is in progress 
16 7 IRAB - address of IRAB 


a 
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RMSDELETE38 RMS .SRCIRMSDELETE.B 
79 1! IRB$B_CUR_KREF - current p o] tioning key of reference 
o 1 IRB$W_POS_ ID - ID of pos Bo ng primary data record 
es IRBSL_POS _VBN - VBN of positioning primary data record 
¢ 1! IRBS$L_RECBUF - address of record buffer 
1} IRBSW_UDR_ID - ID of current primary data record 
2 : : IRBSL_UDR_VBN - VBN of current primary data record 
§ 1 i OUTPUT PARAMETERS: 
1! NONE 
5 3 1! 
28 1 IMPLICIT OUTPUTS: 
234 i i AB 
B26 1! IRB$V_F IND_LAST - 0, last operation was not a S$FIND 
0595 1! IRB$V_PUTS_LAST - 0, last operation was not a $PUT 
B23¢ : IRB$V_UPDATE - 0, last operation was not an SUPDATE 
0996 ROUTINE VALUE: 
0598 1: CUR - illegal or no current record 
0599 1! RNL - current record not locked 
0600 1! suc - record successfully deleted 
8983 : } various 1/0 errors 
0605 ! SIDE EFFECTS: 
0605 1: If record jock ing is yoneceesers the record locks are not checked for. 
0606 1! If automatic loc ~~ is not specified, the then the deleted record is 
0607 1! not unlocked. 
0608 1! If automatic locking is required, then the current primary data record 
0609 1! s always unlocked, on success or failure. 
0610 1! If the current process is within a Recovery Unit, and the file is being 
0611 1! Recovery Unit Journalled, then the operation is RU Journalled 
st ' before any permanent modification to the file takes place 
0614 1— 
pet? BEGIN 
0617 BUILTIN 
a8 a 
0620 EXTERNAL REGISTER 
Be 1 COMMON_RAB : 
08 § GLOBAL REGISTER 
625 R_REC_ADDR_STR, 
° § R_IDX_DFN_STR; 
3 LOCAL 
4 RECORD_SIZE; 


Uw 


tototats 
WANA 


ybdeo-19g4 01:42:44 


! Perform checks common to both SUPDATE and SDELETE such as making sure 
' there is a current record and that it is locked, and then find the 

! current record by means of its RFA address. This will access both the 
' bucket containing the current record and the bucket containing the 

' current record's RRV, if it has one. The address of the BDB for the 


AX-11 Bliss-32 V4.0- 


74 
32; 
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RM3DELETE 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 Pp 3 RF 
staat RMSDELETE3B 12-808-138e 94:58:39 YRS SRC RM DELE YE B3004 ts Ry ve 
' current record bucket will be returned in IRBSL cumeee, and the address 

: of the BDB for the RRV bucket will be returned Tn IRBSL_NXTBDB. 

{RABCIRBSV_UPDATE) = 0; : 


RETURN_ON_ERROR (RMSUPDDELCOM()); 


o~ 
oss 


} Retrieve the index descriptor for the primary key. 


; 574 

; 575 

s S7 

3 $7 

: 7 

s $7 

; 580 

3 +? 

3 ¢ 644 ! 

; 58 ek RMSKEY_DESC (0); 

3 5 $e ! If the file contains alternate keys, then save the primary data record 

3 2 78 ! (in unpacked format if the file's prologue version is 3), in a record 

; 58 bee ! buffer so that the primary data record maybe deleted, and the record will 
>; 588 50 ' still available. This is so that the alternate keys maybe extracted from 
; 4 23 it at a later time to be used in the deletion of the corresponding SIDRs. 
; 591 ret ! If the process is within a recovery unit and the file is being RU 

3 4 54 ! Journalled, then unpack the primary data record regardless of whether or 
: eer tH not the file defines alternate keys. 

3 296 oes? IF .IFABCIFBSB_NUM_KEYS] GTRU 1 

>; 596 0658 

: ad 0659 - IFABCIFBSV_RUPJ 

; 598 0660 THE 

; 599 0661 BEGIN 

; 600 066 

; 601 066 CAL 

; 60 0664 REC_SIZE, 

; rt $693 SAVE_REC_ADDR : REF BBLOCK; 

; 605 bee? ! Retrieve the size of the current primary data record, and position 

3 o0e bee past the record overhead to the user data record itself. 

; 608 0670 SAVE _REC_ADDR = .REC_ADDR; 

; 609 0671 REC_ADDR™= .REC_ADDR™+ RMSREC_OVHD(O; REC_SIZE); 

; ei? 367 RECORD_SIZE = .REC_SIZE; 

3 alg 0674 ! If the file is a protogue 3 file, then the current primary data 

3 el7 B67? record must be unpacked into the record buffer 

; 615 Bo7 IF .JFABCIFBSB_PLG_VER] GEQU PLGSC_VER_3 

: 616 8 THEN 

3; 617 679 4 BEGIN 

; 618 680 4 

: 619 681 4 ! If the record is in a special format, then retrieve the true size 
: 620 82 4 ' of the record from the last two bytes in the record's reserved 

: 6 1 37 ? space. 

3 ° § 5 ? a SAVE REC_ADDREIRCSV_RU_UPDATE) 

3; 625 87 5 RECORD_SIZE = .(.REC_ADDR + .RECORD_SIZE 

3 ? $ one 2 - IRCSC_DATSZFLD)<0,16>; 

3; 628 690 4 ! As part of the process of unpacking the current ortnery data 

: 629 91 4 !' record, RMS must extract the primary key from its position in 

3; 6 92 4 ! front of the rest of the data record, re-expand it if it is 
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VOe~ 00 RMSDELETE3B 1 ~3ep-19 4 93:09:79 RMS.SRCIRMSDELETE .832; “ (3) 

; 631 693 4 ' compressed, and re-integrate it. If the current NRP positionin ; 
; 6 ¢ 694 4&4 : key of retorence is che priaery key, then when RMS Sitloned 40 : 
; 6 695 4 ! the current pr aery data record it extracted its pr mary key into : 
3; 6 696 4 ! keybul fer 1 where it serves as gert of the local NRP context. If : 
; 655 697 4 ! this is indeed the gee. then signal the data record unpacking 3 
3 6 698 4 ! routine that the pr eery key for this data record maybe found in ; 
3; © 53.44 4 ! keybuffer 1, and that there is no need to again extract and ; 
3 6 0 4 ! re-expand the primary key as part of the unpacking process; ; 
; 639 701 4 ! otherwise, signal that the entire unpacking process must be gone : 
; 640 7 ¢ 4 ! through. 3 
; 641 0705 4 ! 3 
; 64 Boe 4 ! There is one case when RMS must signal that the entire unpacking F 
; 64 705 4 ! process must be gone rou even though the primary key is the : 
: 644 0706 4 ' current key of reference. This is when RMS positioned to the : 
; 645 0707 4 ' record by means of a random $FIND. This type of operation does $ 
; 646 fai 4 ! not update the NRP context. 3 
; 647 709 4 ! 3 
3 ote Brie ? IF (. IRABCIRBSB_CUR_KREF] EQLU 0) 3 
; 220 orig ? (. IRABCIRBS$SW_POS_ID] EQLU .IRABCIRBSW_UDR_IDJ) : 
: $36 0714 5 _’. JRABCIRBSL_POS_VBN) EQLU .IRABCIRBSL_UDR_VBN]) : 
3 6 0715 4 3 3 
3; 654 B78 4 AP = $ 
; 655 717 4 ELSE ; 
; 656 0718 4 AP = 0; 3 
; 657 0719 4 3 
: $28 Brs9 2 RECORD_SIZE = RMSUNPACK_REC (.I1RABCIRBSL_RECBUFJ, .RECORD_SIZE); : 
; 660 b7s¢ 4 ! If this file is being RU Journalled (Only Prologue 3 files are ‘ 
; 661 0723 4 ! journalled), and the current process is within a peter? Unit, : 
3 666 0724 4 ! then RU Journal the current operation and set the state bit 3 
; 66 0725 4 ! IRBSV_RU_DELETE ao that the deletions are done such that no space F 
> 664 0726 4 ' at all iS reclaimed. 3 
; 665 0727 4 ‘ $ 
; 666 0728 4 IF .IFABCIFB$V_RUP) 3 
3; 667 0729 4 THEN 3 
3; 668 0730 5 3 
3; 669 8 1 * REC_ADDR = .JRABLIRBSL_RECBUFI; : 
; 670 P 3¢ 3 RETORN_ON_ERROR (RMSRU-JOURNALS (RJRS_DELETE, ; 
; (671 P 07 + JRABE IRESL _UDR_VBNI, 3 
; 676 P 0734 5 - IRABCIRB$W_UDR_IDJ, 3 
; 67 P 0735 -RECORD_SIZE), 3 
3: 674 Bf $ BRSCLEAN BOB); s 
3 675 7 IRABCIRB$V_RU_DELETE) = 13 3 
; 676 0738 4 END; 3 
3; 677 739 4 END 3 
; 678 740 4 3 
3; 679 741 4 ! If the file is a prologue 1 or 2 file, then just move the primary data 3 
: 680 rg 4 !' record into the record buffer. 3 
; 681 745 4 ! 3 
3 ons 744 ELSE 3 
3 os; me? RMSMOVE (.RECORD_SIZE, .REC_ADDR, .IRABCIRBSL_RECBUF)); 3 
; 685 74 ! Position back to the beginning of the primary data record - to the : 
; 686 748 ! first byte of the current primary data record's overhead. 3 
: 687 749 i : 
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; 6 750 REC_ADDR = .SAVE_REC_ADDR; 3 
$ 2 9 f 1 END; : 
: 691 7 g ! If the current record is not in its original bucket, process the RRV for ; 
; 69 754 ! the current record. For prologu files this involves deleting the RRV : 
; 69 755 ! entirely. For all other files, Just the space occupied by the RRV pointer 3 
; 694 7 § ' to the current record is reclaimed. This means that the current record $ 
: 036 f HM } can no longer be found through its secondary keys or by RFA access. : 
: 69 759 if (BDB = .IRABCIRBSL_NXTBDB]) NEQ 0 : 
; 698 0760 THEN 3 
3 $93 $79) BEGIN 3 
3 00 7 ¢ IRABCIRBSL_NXTBDB] = 0; FH 
: 701 P 076 RETURN_ON_ERROR (RMSDELETE_RRV(), BEGIN 3 
3; 70 P 0764 IRABCIRB$V_RU_DELETE] = 0; : 
: 70 P 0765 RELEASE (IRABTIRBSL_CURBDB)); F 
: 704 0766 END); 3 
3; 705 0767 END; 3 
; 706 0768 : 
: 707 0769 ' Delete the current primary data record, mark the bucket dirty and release ; 
; 708 0770 ! it. If the current record's key is the high key in the primary data : 
3 8 144 bucket, then the current primary data record is just marked deleted. : 
: 711 $758 BDB = .IRABCIRBSL_CURBDB); : 
: rg 0774 IRABCIRBSL_CURBDBI = 0; 3 
. 2 0775 3 
3 714 0776 RMSDELETE_UDR(); 3 
: 715 0777 F 
3; ri 0778 BDBCBDB$V_DRT) = 1; : 
3 ats 1a 2 RETURN_ON_ERROR (RMSRLSBKT(O), IRABCIRB$SV_RU_DELETE] = 0); : 
: 719 0781 § ! If the file contains alternate keys, delete all the SIDR entries for F 
3 730 oo88 é the current record. ; 
; ree 0784 if _.1FABCIFBSB_NUM_KEYS] GTRU 1 : 
; 724 0786 RMSDEL_ALL_SIDR (.RECORD_SIZE); ; 
: 726 0788 ! Clear the IRBS$V_RU_DELETE state bit regardless of whether this operation : 
; e44 8788 was or wasn't RO Journalled, and then return success. : 
: 729 0791 {RABCIRBSV_RU_DELETE) = 0; : 
: 730 Ors RETURN RMSSUCT); 3 
: 731 0793 1 END; 
#°M<R2,R3,R4,R5,R6,R7> : 0525 ; 

06 Ag 8 ga 0004 BICB2 #8 ) 3; 0639 ; 

00 06 0 08 BSBW RNSUPDDEL COM : 0641 : 

03 0104 Rf ates TATUS, 1$ : : 

11 1$ CLRL 0645 ; 
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Stars. RO 
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AB 
RNSDELETE UDR 
#2, 10(BDB) 
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RMSRL SBKT 
STATUS, 11$ 
#32, 7CIRAB) 
178(1FAB), #1 
12$ 
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1 GLOBAL ROUTINE RMSDELETE_RRV : RLSRABREG_4567 = 
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i FUNCTIONAL DESCRIPTION: 


' 
. 
' 
. 
‘ 
. 
‘ 
* 
' 
. 
' 
. 
! 
. 
' 
. 
' 
. 
' 
. 
1 
. 
! 
* 
' 
. 
' 
. 
' 
. 
i 
. 
' 
* 
1 
. 
1 
. 
' 
. 
J 
. 
' 
. 
4 
. 
' 
. 
' 
: 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
4 
. 
J 
. 
{ 
. 
i 
. 
' 
. 
' 
. 
' 
. 
' 
* 
' 
. 
‘ 
. 
1 
. 
' 
. 
i] 
. 
] 
* 
' 
. 
' 
. 
‘ 
. 
! 
. 
' 
. 


Delete the RRV for the current primary data record. If the file is a 
prologue 3 file the RRV is entirely deleted; otherwise, it is marked 
deleted and just the space occupied by the pointer is reclaimed. 


If the state bit IRBSV_RU DELETE is set, the RRV is just marked 
RU_DELETE. Likewise, if the state bit IRB$V_RU_UNDEL is set, then the 
RU_DELETE bit in the RRV;s control byte is Cleared. 


CALLING SEQUENCE: 


RMSDELETE_RRV() 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


DB - BOB of buffer with RRV bucket in it 
BDBSL_ADDR - address of buffer 

AB - address of IFAB 
IFB$B_PLG_VER - prologue version of file 

AB 
IRB$V_RU_DELETE - if set, mark RU_DELETE and do not reclaim 
IRB$V_RU_UNDEL - if set, un-delefe the RRV 

REC_ADDR - address of record whose RRV is to be deleted 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


IDX_DFN - index descriptor for the primary key 


ROUTINE VALUE:. 
Value of RLSBKT when writing out bucket with RRV deleted 
SIDE EFFECTS: 


AP destroyed. 

IDX_DFN is set up for the pr inary key. | 

The freespace offset in the RRV bucket is updated to reflect the 
amount of space reclaimed. 
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RM3DELETE 16-Sep-1984 01:42:3 AX-11 Bliss-32 V4. 
vOe-000 RMSDELETE_RRV 1er8ee= 198s 3:dh:39 Lams SREIRMSDECEYE: 
; 790 1 
; 791 ; BUILTIN 
; 79 AP; 
Se 4 
: 794 55 EXTERNAL REGISTER 
; 795 2$ R_BDB_STR 
; 196 5 COMMON _RAB_STR, 
3; 28 R_IDX_BFN_STR 
; 798 85 R-REC-ADDR_STR; 
; 799 860 
; 800 +98 GLOBAL REGISTER 
; 801 B06 R_BKT_ADDR_STR; 
; g0e 086 
; 80 0864 OCAL 
; 804 0865 DEL_RRV_SIZE, 
; 805 0866 LENGTH 
3 806 0867 RRV SIZE, 
; 807 0868 SAVE_REC_ADDR; 
; 808 0869 
3 tts Baey § } Obtain the key descriptor for the primary key of reference. 
s 81} 4 RMSKEY_DESC(0); 
$ aig 087 
; 81 0874 SAVE_REC_ADDR = .REC_ADDR; 
> 814 0875 
; Bt pare 1 Extract the RRV ID of the current primary data record. 
; 817 0878 AP = RMSRECORD_ID(); 
; 818 0879 
; 819 0880 ! Position to the RRV to be deleted, the RRV for the current primary data 
; 820 0881 2 ! record. It is impossible for this posseroning to fail as long as the 
: 821 0882 2 ' bucket containing the RRV has not been released since RMSFIND_BY_RRV 
; 822 0883 ' accessed it. 
3 Ges 0884 ! 
; 824 0885 BKT_ADDR = .BDBCBDBS$L_ADDRI; 
; 825 0886 § RMSFIND_BY_ID(); 
; 826 0887 
3; Ser 0888 ! If is is indicated that the RRV should just be marked RU_DELETE and that 
; 828 0889 ! no space should be reclaimed, then do so by setting the RU_DELETE bit 
3 S¢p 0890 ! within the RRV's control byte. 
: 830 0891 ! 
3; 831 089 if .IRABCIRB$V_RU_DELETE) 
3 S36 089 TH 
; oz +43 REC_ADDRCIRC$V_RU_DELETE) = 1 
3; 835 0896 ! If it is indicated that the RRV should be un-deleted, then do so by 
§ £36 344 clearing the RU_DELETE bit in the RRV's control byte. 
; 838 899 ELSE 
3 a7) 4 Y . IRABCIRB$V_RU_UNDELJ 
; Bai $03 REC_ADDRCIRC$SV_RU_DELETE] = 0 
; Bc8 Ope Delete the RRV reclaiming as much space as is possible. 
3; 6845 90 ELSE 
3; 846 90 BEGIN 
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VO4 RMSDELETE_RRV 12-8 08= 1 be tet: RMS SREIRM DeLee: 63274 . rad 
; 847 90 
3 578 90 ! Setup a series of constants to be used in deleting the RRV. These 
: Sep 4 constants are prologue dependent. 
; 88) 0918 IF_.IFABCIFBSB_PLG_VER] LSSU PLGSC_VER_3 
; b2¢ 091 THEN 
3; & 914 4 
; 854 915 4 RRV_SIZE = JRCSC_F 1XOVHOSZ; 
; 855 916 4 DEL_RRV_SIZE = 2; 
; 856 0917 4 END 
3s Bor 0918 3 
; B28 3444 4 
; 85 920 4 RRV_SIZE = ARCSC_FIXOVHSZ3; 
; 860 0921 4 DEL_RRV_SIZE = 0; 
; 861 09 ; END; 
; B66 09 
; 86 0924 ! Delete/Squish the current primary data record's RRV and fix up 
; He 0396 } the RRV bucket's freespace. : 
; 866 0927 4 LENGTH = (.BKT_ADDR + .BKT_ADDRCBKT$W_FREESPACE]) 
: 867 0928 - T.REC_ADDR +”. RRV_SIZE); 
; 868 $363 
: 869 0930 IF .LENGTH GTRU 0 
; 870 0931 
; 871 boas RMSMOVE (.LENGTH, 
; 87 093 sREC_ADDR + .RRV_SIZE 
; 873 0934 -RECTADDR + .DELTRRV_SIZE); 
; 875 0936 BKT_ADDR(BKT$W_FREESPACE] = .BKT_ADDRCBKTS$W_FREESPACE] 
: g76 aa t4 3 - .RRV_SIZE + .DEL_RRV_SIZE; 
; 878 0939 3 ! If the file is not a prologue 5 file, then the RRV of the current 
: 879 0940 3 ! primary data record was just squished. The RRV pointer was 
; 880 0941 ; !' removed, but the control byte and record ID fields remain. In 
; «6881 094 ! this case RMS wants to setup the control byte of the squished RRV 
: 882 09435 3 ' to indicate that it has been deleted, is an RRV, and doesn't 
; 883 0944 3 ! contain a pointer. 
> 884 0945 ; ‘ 
; 885 0946 IF .IFABCIFB$B_PLG_VER] LSSU PLGS$C_VER_3 
3; 886 0947 THEN ' 
; 887 0948 REC_ADDRCIRCS$B_CONTROL] = IRCSM_RRV OR IRCSM_DELETED 
: 888 0949 OR IRCSM~NOPTRSZ; | 
3 edd Bee0 END; 
: «4891 0354 ! Restore the address of the current primary data record and release the 
3 44 Bez RRV's bucket after marking it dirty. 
3 894 o988 REC_ADDR = .SAVE_REC_ADDR; 
; 895 9328 
; 96 095 BDBCBDB$V_DRT) = 1; 
; 897 0958 é RETURN RMSRLSBKT (RLSSM_WRT_THRU) 
; s38 0959 
; 899 0960 1 END; 


- 
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2C BB 00000 RMSDELETE_RRV:: 
POSHR #*M<R2,R3,R5> 
SE 98 C2 0000 SUBL2 #8, SP 
: bs 0 CLRL = §P) 
00006 0 BSBW = RMSKEY_DESC 
SE 94 CO O000A ADDL2 #4, SP 
6E 6 p 0000 MOVL REC_ADDR SAVE _REC_ADDR 
00006 9019 BSBW RMS SREC ORD_ID 
5 50 D 01 MOVL 
§ 18 AG p 016 MOVL Be tBDB), BKT_ADDR 
00906 O01, BSBW RMSF FIN D’BY 1D, 
05 07 Ad a FI 1D BBC CIRABY, 
66 ¢0 B8 00 é B1SB2 #38, (REC BABDR) 
05 07 Ad 06 Ft 0027 1$: BC Wg, 7 (IRAB), 2$ 
66 20 BA 900 ; BI ¢B2 2, (REC_ADDR) 
03 0087 CA 91 $00 1 2$: CMPB =s-s«WB3(IFAB), #3 
09 1€ 00036 BGEQU 3$ 
53 07 00 00038 MOVL #7, RRV_SIZE 
04 AE 02 00 00038 MOVL We, DEL “RRV_SIZE 
06 11 0003F BRB 
53 09 DO 00041 3$ MOVL 3, RRV_SIZE 
04 AE p4 0044 CLRL EL_RRV7SIZE 
52 04 AS 3C 00047 4$ MOVZWL 4(BRT_ABDR), R2 
51 3 C1 00048 DL3 2, BRT_AD 
50 56 53 C1 O004F ADDL3 = RRV_. SIZE REC_ADDR, RO 
51 50 ce 00053 SUBL2 RO, LENGTH 
0€ 1 00096 BEQL 
04 BE46 9F 00058 PUSHAB @DEL_RRV_SIZECREC_ADDR] 
50 DD 0005¢ PUSHL RO 
51 bp 0005 PUSHL LENGTH 
00006 30 0006 BSBW RSMOVE 
5E O¢ C9 9006 ADDL , SP 
50 5 C3 00066 5$ SUBL ite RO 
04 AS 50 04 AE Al 0006A ADDW3 i RRV silt, RO, 4(BKT_ADDR) 
a a ne a 
66 1C 96 00077 MOVB $58 (REC_ADDR) 
56 6E DO OO07A 68: MOVL  SAVE_REC ADDR, REC_ADDR 
OA AG 02 88 0007D BISB2 2. 70(B5B) 
0 pp 0081 PUSHL # 
00006 30 0085 SBW RMSRLSBKT 
SE c¢ CO ADDL2 ‘ 
€ BA 00089 POPR #*M<R2,R3,R5> 
05 00088 RSB 
; Routine Size: 140 bytes, Routine Base: RMSRMS3 + 015A 
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RM3DELETE 18-$op=1986 01:42:33 AX-11 Bliss-32 v4.0-74 p 
Vee ODD RMSDELETE_SIDR en eee- 1 8Re Phigsizg PANS TE hiss 22, Vb 05044 aoe og 
BSBTTL | "RNSDELETE. SIDR’ 
GLOBAL ROUTINE RMSDELETE_SIDR : RLSRABREG_7 = 


~~ ! 
LE 


ono 
oo 
= 
233 
AAD 
wr 
_ 


; 1 ; 
3 1 F 
; 904 964 1 4+ : 
; 905 965 1! : 
3 p44 208 1 ! FUNCTIONAL DESCRIPTION: $ 
; 90 967 1! 3 
; 908 968 1! This routine’s responsibility is to position to the SIDR array element : 
; 909 84) 1! pointing to the current primary data record for a given key of : 
; 910 970 1! reference and delete it. The mtg key in keybuffer 2, and the . 
; 911 0971 1! RFA address of the current primary data record, found as part of the : 
: aig Bae 7 local NRP context in the IRAB, are utilized in this positioning. ; 
7; 91 975 1! Deletion of the appropriate SfoR array element consists of one of the : 
> 914 0974 1! following: : 
; 915 0975 1! : 
i 916 976 1 | 1. Removal of the entire SIDR if duplicates are not allowed. | ; 
; 918 0978 1! Ze atl the SIDR array element as deleted and not recovering any | 3 
; 919 0979 1! space if duplicates are allowed for this key of reference and the $ 
3 aso 34 : } file is a prologue 1 or 2 file. : 
$ $32 0982 1! 3. are the SIDR array element as deleted and not cocover Thy any 3 
; 9 0983 1! space if duplicates are allowed for this key of reference, the file : 
: 924 0984 1! is a prologue 3 file, and the element is the first element in the SIDR : 
3 852 3444 : array. : 
; 359 0987 1! 4. Marking the SIDR element deleted and squishing out the space | 3 
; 928 0988 1! occupied by the RRV pointer if duplicates are allowed for this key : 
3 44 0989 1! of reference, the file is a presegue 3 file, and the element is not | : 
; 330 444 ' the first element in the SIDR array. : 
: 338 0992 1! 5. Removal of the entire SIDR ervey if duplicates are allowed, this is : 
s 93 0993 1! the first SIDR with this key value, the SIDR is not the physically 3 
; 934 0994 1! last SIDR in the bucket, and ever single element within the SIDR 3 
; 935 0995 1! array has been deleted. : 
; 336 0996 1! $ 
; 93 0997 1 ! CALLING SEQUENCE: g 
; 938 0998 1! 3 
; 939 0999 1! RMSDELETE_SIDR() : 
: 940 1000 1! : 
: 941 1001 1 ! INPUT PARAMETERS: : 
; aeg 1002 1! NONE : 
; 94 1005 1! 3 
: 944 1 ‘f 1 ! IMPLICIT INPUTS: : 
: 945 1005 1! : 3 
: 946 108 1! IDX_DFN - address of index descriptor ; 
3: 947 1007 1! IDX$B_KEYSZ - size of alternate key : 
: 948 1008 1! 3 
; 949 1009 1! AB - address of IRAB é 
: 950 1010 1! IRB$W_UDR_ID - RFA VBN of the current primary data record : 
: 991 1011 : IRB$L_UDR~VBN - RFA ID of the current primary data record | : 
3 33 1918 1 ! OUTPUT PARAMETERS: | 3 
: 954 1014 1! NONE : 
; 955 1015 1! | ; 
; 956 191g 1 ! IMPLICIT OUTPUTS: 3 
: 957 1017 1! 3 
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; 928 1018 1! IRAB - address of IRAB : 
s 9 101 1 ! IRB$B_KEYSZ - size of alternate key for key of reference ; 
: gen : : : IRB$B_STOPLEVEL ~ level of index to search to (set to 0) : 
: 96 1 1 § ROUTINE VALUE: : 
; 96 1 1! 3 
: 964 10246 1! Status of the RMSRLSBKT call (success or error) that released : 
> 965 1025 1! the modified bucket. : 
: 308 13 § : } BUG - if the SIDR array element could not be located | : 
: 968 19 8 i SIDE EFFECTS: | 
: 970 1 01! Modified bucket is released. | : 
: 971 1031 1! IRBSV_POSDELETE set within iRBSW_ SRCHFLGS. ; 
: 97 10 ¢ 1! : 
; 97 10 1 !-- 
; 974 1034 1 
Dee Bena 
: 977 1939 EXTERNAL REGISTER | 
; 978 1038 OMMON_RAB_STR, 
; 979 1039 5 _1DX_BFN_STR; 
: 981 1041 GLOBAL L REGISTER 
: 98 1968 5 _REC "EDDA STR: 
. oe 
> 986 1046 ABET IND _ELEMENT; 
: Obs 1968 
: 989 1049 CABEGIN. OF _SIDR; 
: 991 1051 ! Since RMS is going to position so it can delete a SIDR array element, 
; 4.44 1926 2 ! set the appropriate search flag, and make sure the key size is set up. 
: 994 1054 iRAB IRBSB ~STOPLEVELJ = 
; 995 1055 IRABCIRBSW_ open bass Oiasn POSDELETE; 
; 996 1056 IRABLIRB$SB-KEYSZ) = ~1DX_DFNCTDX$B_KEYS2); 
; 998 1058 ! Position to the SIDR array element me hg Sw to the current primary data 
; 999 1059 ' record for this key of reference. This loop will only be exited either 
; 1000 1060 i when the array element has been located or all SIDR elements with this 
3 190) 196) key value are exhausted. 
; 1908 1968 FIND, gELEMENT: 
: 1004 1064 
1008 1086 
: 1007 1069 “END _OF_SIDR, 
; 1008 1068 
: 1009 1069 sthrus, 
; 1919 1070 
3; 1011 1071 
3 ols 1976 Bue 1 3 
: 101 107 
3 1014 1074 4 BEGIN 
| 
J 
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Voe 800 RMSDELETE_SIDR 12786871388 93:09:49 LRMS «SRC RM DeLee b3004 ’ 3} 

; 1015 1075 4 : 
3 5 1 1 6 4 ' If RMS is unable to find an orray element pointing to the current : 
; 101 1077 4 ! primary data record, then something is very wrong. Return an internal : 
3; 1018 1 4 4 ! bug error, and save the status from RMSCSEARCH_TREE, in the RABs STV ; 
3 1348 : 4 ? field. : 
s 13 1 1081 5 IF NOT (STATUS = RMSCSEARCH_TREE()) , 
3 3 ¢ 1 ¢ 4 THEN ; 
; 10 18 pesie 3 
; 1024 1084 RABCRABSL_STV] = .STATUS; : 
; 1% 5 1986 ? pe ine RMSERR (BUG) ; ; 
: 1059 1087 
: 1028 1088 4 ! Prepare to search the SIDR array for the element pointing to the ; 
3: 1029 1089 4 ' current primary data record. : 
; 10350 1090 4 ! 3 
; 1031 1091 4 BEGIN_OF_SIDR = .REC_ADDR; : 
; 103¢ 109¢ 4 END_OF_STDR = RM$SIDR_END(); ; 
; 103 1093 4 $ 
$ 1035 199¢ 2 } Position to the first array element in the SIDR array. : 
3; 10 1096 4 REC_ADDR = RMSSIDR_FIRST(O); : 
: 1037 1097 4 : 
; 1038 1098 4 ! Search the current SIDR array for the element corresponding to the : 
: 1039 1099 4 ! current primary data record. : 
3; 1040 1100 4 : : 
3 10461 110) 4 WHILE .REC_ADDR LSSA .END_OF_SIDR : 
; 1006 11 ¢ 4 DO : 
3 104 1103 4 3 
> 1044 1104 4 ! If after extracting out the RFA pointer from the current SIDR : 
3; 1045 1105 4 ' array element, RMS finds that it does indeed point to the F 
; neg 1199 ? current primary data record, then exit the search loop : 
3 1048 1108 4 IF RMSEXT_ARRY_RFA (VBN, ID) ; 
3; 1049 1109 4 AN : 
3 1990 1110 ; (, IRABCIRB$W_UDR_1D) EQLU .1D) : 
: 105¢ 1118 5 (, IRABCIRB$L_UDR_VBNJ EQLU .VBN) : 
3 1 111 4 : 
3 1054 1114 4 LEAVE FIND_ELEMENT : 
; 922 1115 4 3 
: 1056 1118 4 ! If the current array element is deleted or does not point to the ; 
3; 1057 1117 4 ' current primary data record then proceed to the next element in 3 
: 1928 18 4 ' the SIDR array. : 
3 1 111 4 : ; 
: 1060 1120 4 ELSE : 
; 1061 1121 4 RMSGE TNXT_ARRAY(); ; 
3 1068 11 ; END; : 
3; 106 11 END; : 
; 1998 1124 3 
3; 1065 1125 ' Delete the SIDR array pointing to the current primary data record : 
; 1996 i § : for this key of reference. The deletion rules are stated above. : 
3; 1068 1128 BDB = .JRABCIRBSL Cungoe3; 3 
: 1069 1129 IRABLIRBS$L_CURBDBI = 0; : 
; 1070 1130 3 
3; 1071 1131 BKT_ADDR = .BDBCBDBSL_ADDR); 3 


: 107 11 

: 1978 11 i 
3 1074 1134 
; 1075 1135 
eS 
: 1078 1138 
: 107 1139 

6E 00BC 


RMSDELETE_SIDR 


RMSSQUISH_SIDR (0, 
Mark the bucket dirty, and 


BDBCBDBSY DRT] = 
RETURN RMSRESBKT (OS ; 


END; 
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SIDR); 
release it. 


BB 00000 RMSDELETE SIDR:: 
POSHR 


ce 0004 SUBL2 
0007 CLRB 


1$: BSBW 


2s: MOVL 


WHMDOn—O>NEM > 
=z 
Ss) 
< 
~~ 
= 
a 


AINPONMOPONUN | | OO 


3$: CMPL 


4$: BSBW 
5$: MOVL 
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SINS NIAAA AA UME & EE 


Saom 
>o 
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yideo-19Re 01:42:39 


ar aca tactanal 


6(IRAB) 
$3 Urbs DEN), 166(IRAB) 
RMSCSE ARC H_TREE 
TAT Gg- 

sTA TUS ATS 

STATUS 12(RAB) 

#33844, RO 

REC_ADDR, BEGIN_OF _SIDR 
RMSSIDR_END 

RO END “OF SIDR 
RMSSIDR_ FIRST 
#4, SP 


RO, REC_A 
REC ADDR, OEND _OF _SIDR 


cP 
RMSEXT_ARRY RFA 
#8, SP 


e 


Sow 
4 


RO, 4$ 
#0, #16, 188(IRAB), ID 
176(IRAB), VBN 
RMSGETNXT_ARRAY 
g(IRAB), BDB 

CIR 


4(BDB), BKT_ADDR 
BEGIN_OF SIDR 


=( 

RMSSQUISH,SIDR 
#2 $6cepe) 
SP) 

RMSRLSBKT 

#4, SP 

#8. SP 


AX=-11 Bliss-32 V4.0-<74 
RMS .SRCIRMSDELETE .B32; 
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007¢ | BF BA 90059 POPR —#*HCR2.R3.R4,RS,RO> ' 


; Routine Size: 142 bytes, Routine Base: RMSRMS3 + 01E6 
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; 1081 1140 1 XSBTTL ge UDR’ $ 
; 1986 BPR ! GLOBAL ROUTINE RMSDELETE_UDR : RLSRABREG_4567 NOVALUE = : 
; 10 1128 1 '+4 ; 
>; 1085 1144 1! $ 
; ' 1332 ! FUNCTIONAL DESCRIPTION: ; 
; 1088 1103 1 This routine'’s responsibility is the deletion of a primary data record. : 
3: 1089 1148 1! Most but not all of the time, the record being deleted is the current 3 
; 1090 1149 1! primary data record. The rules for how primary data records are deleted : 
: 1933 1329 : } are as follows: : 
: 1998 1186 1 i 1. If the primary data record is marked deleted, then the entire record : 
: 103¢ We? ! is always deleted. : 
: 1096 1155 1: 2. If duplicate primary keys are not allowed, and the record is not the : 
; 1097 1156 1! last primary data record in the bucket then the entire primary data : 
3 1336 Viet : record is deleted. : 
: 1100 1159 1: 3. If duplicate primary keys are not allowed, and the record is the ; 
: 1101 1160 1! last primary data record in the bucket then the primary data record : 
: 1108 1161 1! is marked deleted, and the space occupied by the data gersaen of the 3 
; 1187 1186 : record is reclaimed if the file's prologue version is 3. : 
5 1105 1164 1! 4. If duplicate primary keys are allowed then the primary data record : 
3: 1106 1165 1! is marked deleted, and the space occupied by the data portion of the : 
3 1108 1196 : record is recovered if the file's prologue version is 3. : 
: 1109 1168 1! 5. If the state bit IRB$V_RU_DELETE is set, then the primary data : 
3 1319 1198 : record is just marked RU_BELETE and no space is reclaimed. : 
: 1112 171 1! 6. If the state bit IRBSV_RU_UNDEL is set, then the primary data record ; 
3111 1178 1 ! is un-deleted by clearing the RU_DELETE bit within the record control 3 
iene} a : 
: 1116 1175 1! 7. If the pc inary data record is completely deleted, the record was in ; 
31117 1176 1! its original bucket (ie -_a RRV does not exist), and the file's 3 
3 1118 1177 1! prologue version is 1 or 2, then a two-byte RRV is created at the : 
3 1119 1178 1! end of the bucket for this record to prevent its ID from being $ 
3 1199 1179 1! recycled. 3 
3 1121 1180 1! 3 
: 1156 1181 1 ! CALLING SEQUENCE: 3 
311 1138 1! 3 
3 1124 BY 1! RMSDELETE_UDR() 3 
3 1125 1184 1! 3 
3 1126 1185 1 ! INPUT PARAMETERS: : 
3 1127 1186 1! NONE 3 
3; 1128 113? 1! 3 
; 1 9 1138 ' IMPLICIT INPUTS: : 
: 1131 1190 1! DB - address of BDB for primary data bucket buffer : 
: 1136 1191 1! BDBSL_ADDR - address of eecmery data bucket buffer 3 
3 ie 1138 ! } BDBSL_VBN - VBN of primary data bucket : 
: 1134 1194 1 _DFN = address of index descriptor for primary key ; 
: 1136 1195 1! IDX$V_DUPKEYS - if set, Cup icate primary neys are allowed : 
3 113 1196 1! IDX$V_KEY_COMPR - if set, primary key compression is enabled : 
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vOu-000 RMSDELETE_UDR 1o-38p-1982 93:65:79 Hams SRednasperete o3oe4 ve 8 
1! 
AB - address of IFAB 
0 IF BSW_KBUF SZ - size of each keybuffer 
1 IFBSB_PLG_VER - prologue version of the file 
: AB - address of IRAB 
4 IRBSL_KE YBUF - address of the cont igious keybuffers 
5 IRBSV_RU_DELETE - if set, mark RU DELETE and do not reclaim 
§ IRB$V_RU_UNDEL - if set, un-delefe the RRV 
REC_ADDR - address of primary data record to be deleted 
0 OUTPUT PARAMETERS: 
1 NONE 
¢ IMPLICIT OUTPUTS: 
: NONE 
6 ROUTINE VALUE: 
7 NONE 
8 
9 


SIDE EFFECTS: 


AP is trashed. 

Keybuffer 5 is trashed (if the pesaeey key of the following primary 
data record had to be re-expanded). 

The freespace offset in the bucket is updated to reflect the amount 
of space reclaimed. 

REC_ADDR is unchanged. It either points to the deleted record if the 
target primary data record could not be completely removed, or 
it points to whatever followed the deleted primary data record 
(if anything) if it could. 

If this is a prologue 1 or 2 file, and the primary data record which was 


wr 


1 deleted is in its orig tan bucket, then a two-byte RRV is created 
§ to replace the deleted primary data record, provided the space 
Z occupied by the record was completely recovered. 
5 -—=— 
; BEGIN 
9 BUILTIN 
AP; 


EXTERNAL REGISTER 
COMMON RAB_STR, 
R_1DX_BFN_STR 
R-REC"ADDR_STR; 


GLOBAL REGISTER 
R_BKT_ADDR_STR; 


FIELD 
DELETE FLAGS = 


BUILD_RRV = (0,0,1,0], 
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RMSDELETE 16-Sep-1984 01:42:3 AX-11 Bliss-32 V4.0-74 Page 29 
yoeeb00 RMSDELETE_UDR 1e-88=138e 93:69:49 AMS -SREIRA DELEYE:o3274 ° (6) 
3 11 1255 RE_ERXPAND_KEY = 07374703 
he = 
: 1199 1 38 LOCAL 
3; 1200 125 END_OF BUCKET REF Bpy ork 
> 1201 1260 FLAGS BLOCKL1 BYTE 
> O¢ 1261 FIELD(DELETE_FLAGS), 
: 120 1 $6 NEXT_REC_ADDR REF BBLOCK, 
; : be ’ oF REC_OVHD; 
: 1 08 1265 ! If is is indicated that the primary data record should just be marked 
; 120 1266 ! RU_DELETE and that no space should be reclaimed, then do so by setting 
3 : oS 1368 } the RU_DELETE bit within the RRV's control byte. 
: 1210 1269 if .IRABCIRB$V_RU_DELETE 
: 1211 1270 THEN 
3 1 \¢ 1271 BEGIN 
3; 121 1 ie REC_ADDRCIRC$V_RU_DELETE] = 1; 
3 1214 127 RETORN; 
BBG 
3 1217 1276 ! If it is indicated that the primary data record should be un-deleted, 
; 1218 ist? ! then do so by clearing the RU_DELETE bit in the pirmary data record's 
3 isi 1s78 control byte. 
> 1221 1280 3 ELSE 
: \ss¢ 1$8) Fg AC IASON RUE? 
> 1224 1588 BEGIN 
3: 1225 1284 REC_ADDRCIRC$V_RU_DELETE) = 0; 
: 1226 1285 3 RETORN; 
ne : 
> 1229 1288 ! Obtain the address of the primary data bucket, and compute the first 
3 \§ ? ics 2 free byte in the data bucket. 
; 1238 1291 ; FLAGS = 0; 
: 123 1938 BKT_ADDR = .BDBCBDB$L_ADDR); 
; Isze 193? END_OF BUCKET = .BKT_ADDR + .BKT_ADDRCBKT$W_FREESPACE); 
: 1236 1295 ! Obtain the overhead for ALL records in this primary data bucket, and 
3: 1237 1296 ' compute the address of the first primary data record which would follow 
3 1$38 44 ! the primary data record to be deleted. 
: 1239 1298 ! 
: 1509 1300 — 
; 1248 1301 LOCAL 
3 1s¢7 1306 REC_SIZE; 
> 1245 1304 REC_OVHD = RMSREC_OVHD(0; REC_SIZE); 
3 1246 1305 NEXT_REC_ADDR = -REC_ADDR + .REC_OVHD + .REC_SIZE; 
1503 1309 “984 
> 1249 1308 ! Determine whether the primary data record to be deleted is the Last 
: 1520 1392 record in the bucket, and set the local state flag accordingly. 
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RMS .SRC 
IF (.NEXT_REC_ADDR EQLA .END_OF BUCKET) 
-NEXT_REC_ADDRCIRC$V_RRVI 
FLAGSCLAST_RECORD] = 1; 
If the target primary data record can not be completely deleted either 
because duplicates primary keys are allowed or it is the last record. 
in the bucket, mark the record deleted, and squish out the data portion 
of the primary data record if it is squishable. 
F NOT .REC_ADDRCIRC$V_DELETED] 
(. IDX_DFNCIDX$V_DUPKEYS] 
-FLAGSCLAST_RECORD]) 


BEGIN 
RM$SQUISH_DATA(); 
REC_ADDRLIRC$V_DELETED] = 1; 
RETORN; 


The primary data record can be completely deleted. It is either marked 
deleted (the only reason why RMS would be calling this routine would be 
to elimiate it entirely), or duplicates are not allowed and it is not 
the Last primary data record in the bucket. 


LSE 
BEGIN 


LOCAL 
UDR_ID; 


! If the file is a prologue 1 or 2 file and the primary data record to 
! be deleted is in its original bucket (ie - there is no RRV for it), 
! then a two-byte RRV will have to be created for it at the end of the 
' bucket inorder to reserve its ID and prevent it from being recycled. 
AP = 3; 

IF (; IF ABLIFBSB_PLG_VER] LSSU PLG$C_VER_3) 

— ee EQLA .BOBCBDB$L_VBN]) 


BEGIN 
FLAGSCBUILD_RRV) = 1; 
UDR_ID = .REC_ADDRCIRC$B_1D); 


If primary key compression is enabled, and this primary data record 
is not the last record in the file, then the key of the following 
record, whose front compression is based on this record, will have 

to be re-expanded, after this target primary data record is 
completely removed. Set the local state bit accordingly and save the 
entire key portion (both grntte: bytes and key) of the target primary 
data record in keybuffer 5 to be used in re-expanded the key of the 
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primary data record that follows. 
if + 1DX_DFNCIDXSV_KEY_COMPR] 
. ve -FLAGSCLAST_RECORD) 


ies 


1:42: g AX-11 vis -32 V4.0-742 
3:01: RMS.SRCIRMSDELETE .B32; 1 


ane 


BEGIN 
FLAGSCRE_EXPAND_KEY] = 1; 


»REC_ABDR + « 
KEYBOF_ADDR(5)); 


END; 


If the rr data record being deleted is not the last entity in 
the bucket, recover the space it occupies by shifting everything 
that follows, and update the freespace offset in the bucket 
accordingly. If the primary data record being deleted is the last 
entity in the primary data bucket the space it occupies maybe 
recovered by just adjusting the freespace offset. 


F_(.NEXT_REC_ADDR LSSA .END_OF_BUCKET) 
RMSMOVE (.END_OF BUCKET = .NEXT_REC_ADDR, 
-NEXT_REC_ADDR, 
-REC_ADDRJ; 


BKT_ADDRCBKT$W_FREESPACE] = .BKT_ADDRCBKTSW_FREESPACE] 
- (INEXT_REC_ADDR - .REC_ADDR); 


ed tw em me em 
x 
m 


If there is a record following the primary data record just deleted, 
whose hg Re Big to be re-expanded, re-expand it. The routine 
wi 


' 

i 

! RMSEXPAND_ lL take care of re-adjusting the bucket freespace 
offset. 

IF_.FLAGSCRE_EXPAND_KEYJ 

THEN 


RMSEXPAND_KEYD (KEYBUF_ADDR(5), .REC_ADDR + .REC_OVHD); 


If a two-byte RRV must be built for the deleted primary data record, 
then build it at the end of the bucket, and adjust the bucket 
freespace offset to reflect the RRV's size. 


F_ .FLAGSCBUILD_RRVJ 
HEN 
BEGIN 
END_OF BUCKET = .BKT_ADDR +_.BKT_ADDRCBKTS$W_FREESPACE); 
END_OFBUCKETCIRCS$B_CONTROL] = IRCSM_DELETED OR IRCSM_NOPTRSZ 
OR IRCSM_RRV; 
END_OF BUCKETCIRC$B_1D] = .UDR_ID; 
BkT ADDR BKT$W_FREESPACE] = .BRT_ADDRCBKTS$W_FREESPACE] + 2; 
END; 
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VOG-000 RMSDELETE_UDR 14-Sep- 1982 93: af: 21 RMS. SRCIRMSDELETE, B32;1 ei 5 


2C BB 00000 RMSDELETE_UDR:: 
POSHR #*M<R2,R3,R5> 3 1141 
5E O¢ C2 90002 SUBL2 SP : 
05 07 AS 9 FI 000 BBC #5, 7(IRAB), 1$ + 1269 
66 0 88 OOO0A BISB2 #32, (REC_ADDR) + 1272 
48 11 90000 BRB 6$ + 1277 
05 07 a9 06 él OOOF 1$ BBC u6 7(IRAB), 2$ + 1281 
66 ¢0 A 0014 BICB2 #32, (REC_ADDR) + 1284 
e 11 00017 BRB 6$ + 1283 
53 94 00019 2$ CLRB —s- FLAGS + 1297 
55 18 AG v0 00018 MOVL §§ 24(BDB), BKT_ADDR + 1292 
3 04 AS 3C OOO1F MOVZWL 4(BKT_ADDR) ,~END_OF BUCKET + 1293 
5 55 co et ADDL2 BKT_ABDR, END _OF “BUCKET : 
5} ps 00026 CLRL Bf + 1304 
00006 30 00088 BSBW §RMSREC_OVHD : 
04 AE 50 DO 00028 MOVL RO, REC_OVHD 3 
50 56 06 AE C1 O00¢F ADDL3 REC_OVHD, REC. ADDR, RO + 1305 
6E 50 51 C1 00034 ADDL3 REC-SIZE. RO, NEXT_REC_ADDR F 
52 6E 01 00038 CMPL NEXT_REC * aBDR, END~OF BUCKET + 1311 
05 13 00038 BEQL 6: 3$ : 
03 00 BE 03 Ei 00030 BBC 3, aNEXT _REC_ADDR, 4$ + 1313 
5 02 88 00042 3$: BISB2 wz, FL + 1315 
11 66 02 £0 00045 4$: BBS 4 (Rec ADDR), 7$ + 1322 
04 1c =A? «EB 00049 BLBS 2B (1D DFN), 5$ + 1324 
09 53 01 Ei 0004D BBC #1 Pe RGs. *$ + 1326 
0000v 30 00051 5$: BSBW §RM$SQUISH DATA : 1329 
66 04 88 00054 BISB2 #4, (REC_ADDR) : 1330 
0088 31 00057 6$: BRW \ § : 1328 
5¢ 03 DO 0005 7S: MOVL + 1350 
03 00B7 CA 91 0005D CMPB TBS(1FAB). #3 : 1352 
11 1€ 00062 BGEQU ; 
00006 30 00064 BSBW  §RMSRECORD_VBN + 1354 
1C «AG 50 D1 00067 CMPL RO, 28(BDB) 3 
08 if 00068 EQ é : 
53 01 88 0006D BISB2 #1, FLAGS + 1357 
08 AE 01 Ab 9A 00070 MOVZBL 1(REC_ADDR), UDR_ID ; 1358 
22 1c A? 06 €1 00075 8$: BBC #6, 28(1DX_OFN), 9S : 1370 
1E 53 01 £0 O007A BS #1. FLAGS, -9$ : 1372 
53 04 88 0007E BISB2 FLAGS : 1375 
50 00B4 CA 3¢ 00081 MOVZWL 180(IFAB), R : 1379 
60 B940 DF 00086 PUSHAL @96(IRAB) (RO ; 
08 BE46 9F OOOBA PUSHAB @REC_OVHDCREC_ADDR) : 1378 
7E OC BE46 9A 00085 MOVZBL @REC~OVHDCREC ~ADDRI, -(SP) : 1377 
6E 02 £0 009 ADDL2. #2, TSP) : 
09006 30 00096 BSBW  RMSMOVE ; 
SE 0c CO 00099 ADDL2 #12, §S : 
52 6— D1 0009C 9S: CMPL ii REC_ADDR, END_OF BUCKET > 1389 
10 1 0009F BGEGU 10$ : 
56 DD OO0A1 PUSHL ADDR : 1393 
04 AE DD 900A3 PUSH NEXT REC_ADDR : 1392 
7E 52 08 AE ¢ O0A6 SUBL3 NEXT™ REE “ADDR, END_OF BUCKET, -(SP) > 1391 
00006 OOAB BSBW =a RMSMOVE : 
5E OC CO OOOAE ADDL2 ey SP ; 


| 
13 
RM3DELETE 1h-Sep-1986 AX-11 Bliss-32 V4.0-74 Page 33 
irae ti RMSDELETE_UDR 127808-1 382 9}: $f: 78 RMS. SRCIRMSDELETE.B32; (6) 
50 5 C B1 10$: SUBL NEXT REC_ADDR, REC_ADDR, RO 3 1396 
06 =A A B ADDW , &(BKT_ADDR) : 
1 E B BBC FLAGS? & + 1403 
5 04 AE ‘1 B ADDL3 RR OVHD, REC_ADDR, R1 + 1405 
00B4 CA 3c 000C MOV2WL 180TIFABS, ROW : 
60 B94 ¢ OVAL a9 C1RAB) CRO RO : 
0006 CC SBW MSEXPAND_KEYD : 
1 CF 11$ BLBC FL AGS, "0 + 1411 
5 04 A D MOVZWL 4(BKT. ADDR) . oor OF _BUCKET + 1414 
5 5 § D ADDL2 ext ait BUCKET : 
‘ iC 00D MOVB (END. CREY ) + 1416 
01 OA 08 AE 9 D¢ MOVB tit OF BUCKET) + 1417 
04 =A 02 AO OOOE ADDW rN “get DR) + 1418 
SE OC CO O00ES 12 ADDL2 # P + 1423 
2C BA 000E8 POPR Ae : 
05 OOOEA RSB : 


; Routine Size: 235 bytes, Routine Base: RMS$RMS3 + 0274 
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ZSBTTL 'RMSSQUISH_ DATA’ 
ROUTINE RMS$SQUISH_BATA : RLSSQUISH_DATA NOVALUE = 


} 
| 
| 
re | 
} 


! 
' FUNCTIONAL DESCRIPTION: 

This routine's responsibility is the deletion of the data a of 

the current primary data record. This deletion can only take place if 

the file is a prologue 3 file. 
CALLING SEQUENCE: 

RM$SQUISH_DATA() | 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
BKT_ADDR - address of the primary data bucket 
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IDX$B_ size of the key : 
IDX$V_REC_COMP if set, record compression is enabled 
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AB - address of the IFAB 
IFBSB_PLG_VER - prologue version of the file 


REC_ADDR - address of the current primary data record 
OUTPUT PARAMETERS: 
NONE 


ooo 


IMPLICIT OUTPUTS: 
NONE 


RANLSSSVS 


ROUTINE VALUE: 
NONE 


“ 


SIDE EFFECTS: 
The freespace in the bucket is updated to reflect the space reclaimed. 


BEGIN 
EXTERNAL REGISTER 
_BKT_ADDR_STR, 
R~IDX~DFN_STR, 
R-REC_ADDR- STR; 
GLOBAL REGISTER 
R_RAB 
R~IRAB, 
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=1986 04:42:30 AX-11 BL iss~32 V4.0=742 Page Pid 


RMSDELETE 
vOu-000 RMSSQUISH_DATA RMS.SRCIRMSDELETE.B32; 1 


| 
; 1423 1481 R_IMPURE , | ; 
> 1426 14 ¢ R_BDB; : 
: 1258 1282 LOCAL | 
: 1059 1485 REC_SIZE, | 
: 1428 1486 KEY-SIZE, | : 
> 1429 re REC _OVHD, ; 
th er: oes at 
; 14 ¢ 1490 ! If this is not a prologue 3 file then nothing can be done; however, if | : 
3 14 1491 ! this is a prologue 3 file then as the primary key is always kept separate ; 
3 14 1438 ! from the data pertton of a prologue 3 data record, the data portion : 
3; 1455 149 ! of the current primary data record can always be squished out, and its : 
$ 10 pe: } space recovered. | : 
: 14 1496 IF .IFABCIFBSB_PLG_VER] NEQ PLGS$C_VER_3 ; 
; 1439 149 THEN $ 
He 188 sir. aa, 
: ri | 1500 : Obtain the size of the record overhead and the size of the current | : 
3 144 1501 : primary data record. Note that the size of the key (and -_ key specific : 
3 14446 1208 : contret bytes) is always included as part of the size of the current 3 
F rer 1307 primary data record. : 
; 1667 1305 REC_OVHD = RMSREC_OVHD(O; REC_SIZE); : 
5 1449 1507 ! Compute the contribution of the or inary key of the record to the size of 5 
; 1450 1508 : the current primary data record. If primary key compression is enabled, 3 
: 1083 1308 then the key size will include the two bytes of key compression overhead. : 
; 1488 1511 if .1DX_DFNCIDX$V_KEY_COMPRI 3 
: ieee 1318 KEY_SIZE = .(.REC_ADDR + .REC_OVHD)<0,8> + 2 . 
; 1457 1315 KEY_SIZE = .IDX_DFNCIDX$B_KEYSZ); : 
: 1459 1349 : Compute the size of the data portion of the current primary data record. : 
: 1460 1518 ! If the current primary data record consists of the primary key alone, : 
3 199) 131) return, as there is no data portion to squish out. : 
; 1468 3 1 iF ((SIZE = eREC_SIZE = .KEY_SIZE) EQLU 0) ; 
: 1469 13 § RETURN; | ; 
; 146? 12 5 Squish out the data portion of the current primary data record. : 
: 1469 1359 : RMSMOVE ((.BKT_ADDR + .BKT_ADDRCBKT$W_FREESPACE)) 3 
: 1470 1528 - (,RET_ADDR + .REC_OVHD + .REC_SIZE), 3 
3: 1471 1529 -REC_ADDR + .REC_OVHD + .REC_STZE : 
; 1478 13 9 -REC-ADDR + .RECTOVHD + .KEY-SIZES; | : 
: 1474 15 § ! Update the record size of the current primary data secord to reflect 3 
3 1475 15 ! the squishing out of the data portion of the record. NOTE that if the : 
: 1678 1534 : record is fixed length and bot ney and record compression are disabled, : 
: iene 42 5 then there will be no record size field to update. | : 
: 1479 1339 iF NOT (. IFABCIFBSB_RFMORG] EQLU FABSC_FIX | 3 
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3; Routine Size: 


104 bytes, 


RMSSQUISH_DATA 


H 13 
16-Sep-1984 242:3 
1o-ge8-1 382 94:99:78 
AND 
NOT .1DX_DFNCIDX$V_KEY_COMPR] 


ine NOT .IDX_DFNCIDX$V_REC_COMPR]) 
(.REC_ADDR + .REC_OVHD = 2)<0,16> = G 


AX-11 Ol ise V4.0-742 
RMS .SRCIRMSDELETE.B32;1 


C_ADDR + 
zE; 
! Update the freespace pointer in the bucket to reflect the space shee 


! has been recovered by the squishing out of the data portion of the 
current primary data record. 


BKT_ADDR(BKTS$W_FREESPACE] = .BKT_ADDRCBKTSW_FREESPACE] - .SIZE; 


“RE REC_OVHD = 2)<0,16> 
t 


END; 
0B1C 8F BB 00000 RMSSQUISH_DATA: 
POSHR #*M<R2,R3,R4,R8,R9,R11> 
03 00B7 CA 91 00004 CMPB =s«W83( FAB). #3 
58 12 00009 BNEQ 5$ 
51 ps 00008 CLRL sR 
00006 30 0000D BSBW AMSREC ovHD 
52 50 DO 90019 MOVL RO, Bee Ove 
1c «OA? 06 £1 0001 BBC #6, 28(TDX 1$ 
54 6246 9A 00018 MOVZBL (REC OVHD) TREC. _ADDR], KEY_SIZE 
02 CO 0001C ADDL2 #2, REY_S 
04 11 OOO1F BRB 2 
54 20 AZ 9A 00021 1$: MOVZBL 32(IDX_DFN), KEY_SIZE 
51 54 C3 00025 2$: SUBL3 KEY_SIZE, REC_SIZE, SIZE 
38 13 00029 BEQL. 5$~ 
56 52 C1 00028 ADDL3 REC_OVHD REC rrr. RO 
6440 9F 000¢F PUSHAB (KEY SIZE)L 
51 50 CO 00032 ADDL2 RO, RI 
51 bp 00035 PUSHL 1 
50 04 AS 3¢ 00037 MOVZWL 4(BKT_ADDR), RO 
50 55 C6 90038 ADDL2 BKT_A ADDR. rb 
50 5} : 003€ SUBL3 R1,7RO, -(SP) 
00006 30 00042 BSBW RRgHO ve 
5E 0C CO 0004 ADDL2 #12 OCP 
01 50 AA 91 0048 CMPB = #1 
OA 12 0004C BNEQ 
1c «A? 06 E OO4E BBS 28 (10x DFN), 3$ 
“% ar 005 TSTB sR OK. FN 
07 18 0056 BGEQ 6s «4$ 
FE A246 9F 00058 38 PUSHAB =-2(REC soy REC _ADDRI 
9E : Ag O99¢ SUBW2 SIZE, ats 
04 AS 53 Ad OOOSF 4$ SUBW2 SIZE aaKT A 
oBic «BF BA 0063 5$ POP #°M<R2,R3,RE, BRe do, R11> 
5 0006 RSB 


Routine Base: RMS$RMS3 + 035F 
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v04- RMSSQUISH_SIDR 


3 1 XSBTTL 'RMSSQUISH_ SIDR’ 
GLOBAL ROUTINE RMSSQUISH_SIDR (SCAN, BEGIN_OF_SIDR) : RLS$RABREG_567 = 


'e4¢ 
' | 


FUNCTIONAL DESCRIPTION: 


This routine's responsibility is to delete the SIDR array element 
pointing to the current primary data record for this key of reference. 
eletion of the SIDR array element goes according to one of the 
following rules: 


1. Removal of the entire SIDR if duplicates are not allowed. NOTE that 

if the input parameter SCAN is 1 and the file is a prologue 3 file 
then for the purpose of this SIDR deletion it is assumed that this 
key of reference does allow duplicates (See rules 2 through 5). 


III 


SESE UR aSSale 
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meee the SIDR array element as deleted and not recovering any 
space if duplicates are allowed for this key of reference and the 
file is a prologue 1 or 2 file. 


WN 
2 


—_— the SIDR array element as deleted and not st any 

space if duplicates are allowed for this key of reference, the file 

Ve prologue 3 file, and the element is the first element in the 
array. 


r 
7 


occupied by the RRV pointer if duplicates are allowed for this key 
of reference, the file is a pretogue 3 file, and the element is not 
the first element in the SID 


Removal of the entire SIDR array if duplicates are allowed, this is 
the first SIDR with this key value, the SIDR is not the physically 
last SIDR in the bucket, and ever single element within the SIDR 
array has been deleted. 


If the state bit IRBSV_RU_DELETE is set, then the SIDR array element 
is just marked RU_DELETE and no space is reclaimed. 


If the state bit IRBSV_RU_UNDEL is set, then the SIDR array element 
is un-deleted by clearing the RU_DELETE bit within the element's 
control byte. 

CALLING SEQUENCE: 

BSBW RMSSQUISH_SIDR() 

INPUT PARAMETERS: 


SCAN - if 1, scan the current SIDR array (if Prologue 3 file) 


array. 
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BEGIN_OF_SIDR = pointer to the beginning of the SIDR record 
IMPLICIT INPUTS: 
BKT_ADDR - address of the SIDR bucket 
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Marking the SIDR element deleted and squishing out the space 


———— 
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RMSDELETE 16-Sep-1984 01:42:3 AX-11 Bliss-32 V4.0-742 P 38 
vOu-000 RMSSQUISH_SIDR Vergep-19be 3:01:19 — EAMS SREIRNEDELEYE 0 30¢4 29° (8) 
3 : IDX_DFN - address of the index descriptor 
4 IDX$V_DUPKEYS - if set, duplicate keys are allowed 
5 IDXSV_KEY_COMPR - if set, SIDR key compression is enabled 
: AB - address of IFAB 
8 IF BS$W_KBUF SZ - size of one of the contigious keybuffers 
5 1FBSB_PLG_VER - prologue version of file 


AB - address of IRAB 
IRBSL_KEYBUF - address of the cont igious keybuffers 
IRB$V_RU_DELETE - if set, mark RU_DELETE and do not reclaim 
IRB$V_RU_UNDEL - if set, un-delefe the RRV 
REC_ADDR - address of the SIDR array element 
| 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


REC_ADDR - address of next SIDR if the entire SIDR was deleted 
otherwise unchanged. 


SISNET SSS OS 


ROUTINE VALUE: 


1 = some space was recovered. 
0 - no space was recovered. 


SIDE EFFECTS: 


Keybuffer 5 will have been trashed, if any key re-expansion occurred. 

The freespace in the bucket is updated to reflect the space reclaimed. 

If the SIDR is completely deleted, SIDR ney compression is enabled, and 
a SIOR follows the completely deleted SIDR, then the key of this 
following SIDR will have been re-expanded. 


St tS tert whet 
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BEGIN 


EXTERNAL REGISTER 
R_BKT_ADDR_STR, 
C RAB-STR. 
10x_BFN_STR 
RECWADDR_STR; 
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RL 
LABEL 

DUPS; 
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LOCA 


PROPOPOROPONOF POPONIMONINPOPONONPONINDNS 2 2 9 9 OO 


L 
DELETE_START, 
DELET 
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SeSeS eases 


661 ELETE-END, 

66¢ FLAGS : BLOCKL1), 
66 LENGTH 

664 NEXT_REC_ADDR, 

665 RECORD _OVH 

666 SAVE_REC_ADOR =: REF BBLOCK; 
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resid RMSSQUISH_SIDR 12-80 8=1 8c OF: O4it9 RMS .SRCIJRM DeLee b3oe4 

; 1610 1667 : 
: 1611 166 MAP : 
; 1916 198 BEGIN_OF_SIDR : REF BBLOCK; 3 
: 161 1670 : 
> 1614 1671 MACRO 5 
: 1615 1ol¢ DELETE_SIDR = 0,0,1,0 %, . 
: 1918 167 SQUISH_SIDR = oho) 8 i, ; 
3 1el% 1ere RE_EXPAND_KEY = 0,2,1,0 %; ; 
3; 1619 1978 ! If is is_ indicated that the SIDR array element should just be marked ; 
: 1620 167 ! RU_DELETE and that no space should be reclaimed, then do so by setting : 
: 1 1 1928 the RU_DELETE bit within the element's control byte. ; 
: 16 : 1680 IF .IRABCIRBSV_RU_DELETEJ : 
> 1624 1681 THEN $ 
3; 1625 1086 BEGIN : 
3 16 § 168 REC_ADDRCIRC$V_RU_DELETE) = 1; . 
3; 16 1684 RETORN 0; 3 
: 1628 1685 END 3 
3; 1629 1686 3 
; 1630 1687 ! If it is indicated that the SIDR array element should be un-deleted, . 
: 163) 4 then do so by clearing the RU_DELETE bit in the element's control byte. : 
; 16 5 1690 ELSE ; 
3; 16 1691 IF .IRABCIRB$SV_RU_UNDELJ ; 
: 1635 1098 THEN 3 
>: 1636 169 BEGIN 3 
3: 1637 1694 REC_ADDRCIRCS$V_RU_DELETE) = 0; ’ 
: 1638 1695 RETORN 0; : 
3; 1639 1696 END; F 
: 1640 1697 3 
3 1641 1698 ' Save the address of the current SIDR element, and zero out the local ; 
; Mb 1699 ! flag field. . 
3; 164 1700 : . 
3 1644 1701 FLAGS = 0; ; 
3 Hb oF 1706 SAVE_REC_ADDR = .REC_ADDR; : 
3 1647 1704 ! Determine the address of the first byte past the end of the current é 
3: 1648 1705 ' SIDR. 3 
3; 1649 1706 ! 3 
3; 1650 1707 BEGIN F 
3 1651 1708 F 
; 1936 1709 LOCAL : 
3; 165 1719 REC_SIZE; : 
3; 1654 171 3 
3; 1655 I7i¢ REC_ADDR = .BEGIN_OF _SIDR; 3 
; 1696 171 RECORD _OVHD = RMSREC"OVHD(-1; REC_SIZE); : 
3; 165 1714 NEXT_REC_ADDR = .REC_ADDR + ~RECORD_OVHD + .REC_SIZE; F 
3; 1658 1715 END; 3 
3; 1659 Hat 3 
3; 1660 171 ! If this secondary key of reference does not allow duplicate key values 3 
3; 1661 1713 ! and either the file's prologue version is 1 or 2; or, the input parameter 3 
3 1996 173? SCAN is 0, then the entire SIDR maybe deleted. : 
3 1664 1721 IF NOT .IDX_DFNCIDX$V_DUPKEYS) : 
3: 1665 17 § 3 
3 1666 17 (NOT .SCAN F 
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667 4 OR 

oF 5 THEN - IFABCIFBSB_PLG_VER] LSSU PLGSC_VER_3) 

of ? FLAGSCDELETE_SIDR) = 1 

ors 9 ! If this key of reference does allow duplicate ¢ keys or duplicates are 

67 0 ! not allowed but the file's prologue version is 5 and a scan of then entire 

674 1 ' SIDR array has been requested (SCAN is set to 1), then mark the current 

675 ¢ ! element as deleted and under certain circumstances, reclaim the space 

67 ! occupied by the SIDR array element's RRV pointer. Under very restricted 

67 4 ' circumstances it will also be possible to reclaim the space occupied by 

oF 5 } the entire SIDR. 

80 ; ELSE 

81 8 DUPS: 

4 9 BEGIN 

8 SAVE_REC_ADDRCIRCS$V_DELETED) = 1; 


3 3 
3 3 
; 1 
3 7 
7 1 
3 7 
= 1 
e 1 
37 
os 1 
oe 1 
| 
6 1 
a 1 
Y 1 
3% 
3; 1 
3 7 
© 1 
3; 1 
3 1 
3; 1 
e 1 
| 
° 1 
3; 7 
° 1 
° 1 
3; 1 
oo 1 
© 1 
37 
: 1 
6 1 
3 7 
3% 
6 1 
3 7 
e 1 
3; 7 
3 
e 1 
3; 7 
. 
3 1 
: 7 
3 Y 
3 3 
3 
3% 
3 
: 1 
3 7 
. 1 
3; 7 
3 1 
3 3 


! If the file is a prologue 2 file then marking the element deleted is 
all that can be done. 


If (-1FABLIFBSB_PLG_VER LSSU PLG$C_VER_3) 


So Ue 


co 
~o 


: Obtain the address of the first array element in the SIDR array. 
FIRST_SIDR = RMSSIDR_FIRST(O); 
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! If the first element in the cot (which maybe the element being 
! deleted) is marked deleted, and this SIDR is the first such 

! record in the file with this key value, then it still maybe 
possible to delete the entire SIDR. 


IF .FIRST_SIDRCIRCS$V_DELETED) 
AND 
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0 
4 
5 4 
6 3 
690 e BEGIN 
691 8 4 REC_ADDR = .SAVE_REC_ADDR; 
$36 9 4 RETORN 0; 
69 0 4 END 
694 1 4 
695 ¢ 4 ! The file is a prologue 3 file. If every single array element in this 
696 4 ' SIDR array is deleted, if the SIDR is not p yateatly the Last SIDR in 
697 4 4 !' the bucket (this restriction applies to duplicates keys allowed only) 
698 5 4 ! and if this SIDR is the first such SIDR with this hey value in the 
699 6 4 ! file then it will be possible to delete the entire SIDR; otherwise, 
700 7 4 ! the space occupied by the element's RRV pointer is reclaimed unless 
701 8 4 ! it is the first element in the array in which case nothing more can 
re 9 4 ! be done. 
70 0 4 : 
704 : 2 ELSE 
705 $ 4 BEGIN 
re 4 
70 4 4 ABEL 
70 5 4 ENTIRE_SIDR; 
70 6 4 
7 4 LOCAL 
3 ? FIRST_SIDR : REF BBLOCK; 
0 4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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4 . : -FIRST_SIDRCIRCSV_FIRST_KEY] 
ENTIRE_SIDR: BEGIN 
Loc 


AL 
SCAN_START; 


! If the current SIDR is physically the Last SIDR in the bucke 
' and duplicates keys are allowed then it will not be possible 
' to reclaim the space occupied by the entire SIDR even if all 
its elements are deleted. 
if 9 ae ae GEQA (.BKT_ADDR + .BKT_ADDRCBKT$W_FREESPACE]) 
- IDX_DFNCIDX$V_DUPKEYS] 
LEAVE ENTIRE_SIDOR; 


' Scan the SIDR array starting with the second element up to 

' but not including the target element making sure that all 

! these elements have been deleted. If a Live element is found 
! then the space occupied by the entire SIDR can not be 
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' reclaimed. 
SCAN_START = .FIRST_SIDR + .FIRST_SIDRCIRC$V_PTRSZ] 
: JRCSC_BATPTRESS 


i ae ceo LSSA .SAVE_REC_ADDR) 


IF NOT CHSFAIL (CHSFIND_NOT_CH 
(. SAVE REC ADDR = .SCAN_START, 


e Te 
ECHARTIRCSM_DELETED) 
ZCHARCIRCSM_NOPTRSZ))) 
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60 HEN 

2 LEAVE ENTIRE_SIDOR; 

8 ' Scan the SIDR array Storting with the first element past the 
764 2 ! target element and ending with the last element in the SIDR 
765 2 ! making sure that all these elements have been deleted. If a 
766 2 ' Live element is found then the space occupied by the entire 
rer SIDR can not be reclaimed. 

769 SCAN_START = .SAVE_REC_ADDR + .SAVE_REC poont IAcsv PIASED 

770 + IRCS$C_DATPTRBS 
rh dy 
718 ; IF {.SCAN_START LSSA .NEXT_REC_ADDR) 

775 3 IF NOT CHSFAIL (CHSFIND_NOT_CH 

776 3 (.NEXT_REC_ADDR - .SCAN_START, 

777 ; -SCAN_START, 
ere ; ZCHARTIRCSM_DELETED) 

780 3 ZCHAR(IRCSM_NOPTRSZ))) 


RMSSQUISH_SIDR 


04 
: 1783 i § THEN EAVE ENTIRE_SIDR 
: 158 1840 ¥ 
3: 1784 1841 ! Every single element in the current SIDR has been found to be 
: 1785 1 t ' deleted, so the space occupied by the entire SIDR maybe 
$ 1738 184 ' reclaimed. 
; 178 1844 ; ee 
3; 1788 1845 FLAGSCDELETE_SIDRJ = 1; 
; 1789 1846 5 LEAVE DUPS; 
; 1790 1847 4 END; 
3; 1791 1848 4 
: 1738 190? 4 ! If it is not possible to delete the entire SIDR then set up to 
3; 179 1850 4 ! reclaim the space seeupres by the element's RRV pointer unless the 
3 1794 1851 4 ! element is the first element in the array in which case nothing 
3; 1795 1826 4 ! more can be done. 
3; 1796 1855 4 ! 
3: 1797 1854 4 REC_ADDR = .SAVE_REC_ADDR; 
: 1798 1855 4 
3 1799 1856 5 IF (.REC_ADDR EQLA .FIRST_SIDR) 
; 1800 1857 4 
; 1801 1858 4 RETURN 0 
; 10 1859 4 
: 180 1860 4 FLAGSCSQUISH_SIDR] = 1; 
3: 1804 1861 3 ND; 
; 1805 1866 END; 
3; 1806 186 : 
3; 1807 1864 ! If the space occupies by the entire SIDR is to be reclaimed, set up to 
3; 1808 1865 2 ' recover it. 
; 1809 1866 2 ; 
3 1810 1867 2 IF .FLAGSCDELETE_SIDRI 
3; 1811 1868 ; THEN 
3 18l¢ 1869 BEGIN 
3; 181 1870 3 DELETE_START = .BEGIN_OF SIDR; 
3 ite 197) 3 DELETE_END = .NEXT_REC_ADOR; 
: 1816 1873 3 ! If key compression is enab.ed, and this SIDR is not the Last SIDR 
3; 1817 1874 3 ! in the bucket, save the key of the current SIDR in mryeur ser Se 
3; 1818 1875 ; ! so that it maybe used in expanding the key of the following 
3 1819 1876 ' record, 
3; 1820 1877 ; : 
: 1821 1878 IF .IDX_DFNCIDX$V_KEY_COMPR] 
3 18s¢ 1879 3 THEN 
3; 18 1880 4 BEGIN 
; \ese 133) 4 
3; 1825 18 § 4 GLOBAL REGISTER 
3; 1826 18835 4 R_BDB; 
3; 1827 1884 4 
3; 1828 1885 4 FLAGSCRE_EXPAND_KEY] = 1; 
3 +644 1886 4 
3; 1830 1887 4 RMSMOVE (.(.REC_ADDR + .RECORD OVHD)<0,8> + 2, 
3; 1831 1888 4 »REC_ADDR + ,RECORD_OVHD, 
; 183¢ 1889 4 KEYBOF_ADDR(5)); 
3; 183 1890 END; 
3: 1834 199) END 
3; 1835 1 3 ® . 
3; 1836 189 ! If the space occupies by the RRV pointer is to be reclaimed, set up to 
3; 1837 1894 ! recover it. 
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| 
: 1835 1896 ELSE | 
; 1840 1899 BEGIN 
; 1841 1898 
; 13t6 1899 DELETE_START = .REC_ADDR + 1; 
>; 184 1900 DELETE-END = .DELETE_START + .REC_ADDRCIRC$V_PTRSZJ 
: 1844 1901 + IRCSC_DATPTRBS3; 
: 1845 1308 
3; 1846 190 REC_ADDRCIRC$V_NOPTRSZ) = 1; 
; i eh 1388 REC_ADDRLIRC$V_PTRSZ2] = 0; 
: 1849 1906 ! Update the SIDR size field. As it is curronthy written, this 
; 1850 1907 ! updating assumes that the size field is the first two bytes 
: 192) 1308 (and the only two bytes) of the record overhead field. 
3 188 1910 3 (.BEGIN_OF_SIDR)<0,16> = .(.BEGIN_OF_SIDR)<0,16> 
> 1854 1911 3 -"(.DELETE_END = .DELETE_START); 
>; 1855 1316 2 END; 
; 1856 1913 2 
; 1857 1914 2 : Recover the space that can be recovered, and update the freespace offset 
; 1858 1915 2 ! in the SIDR bucket. If the SIDR is being completely deleted, and it is the 
: 1859 1916 2 ' Last SIDR in the bucket then there will be nothing to move and only the 
3 1300 at 5 bucket's freespace offset need be updated. 
; 1866 133 § LENGTH = .BKT_ADDRCBKTS$W_FREESPACE] - (.DELETE_END - .BKT_ADDR); 
: 1864 1921 2 IF .LENGTH GTRU 0 | 
>; 1865 1922 2 THEN 
; 1866 1923 3 BEGIN 
3: 1867 1924 3 
3; 1868 1925 3 GLOBAL REGISTER 
: 1869 1926 3 R_BDB; 
: 1870 1927 3 
: 1871 1928 3 RMSMOVE (.LENGTH, .DELETE_END, .DELETE_START); 
3 1376 1929 2 END; 
; 187 1930 2 
3: 1874 1931 2 BKT_ADDR(BKT$W_FREESPACE] = .BKT_ADDRCBKTS$W_FREESPACE] 
: H+ 184 1936 § - (.DELETE_END - .DELETE_START); 
3; 1877 1934 2 ! If key compression is enabled, the space occupied by the current SIDR was 
; 1878 1935 § ! completely reclaimed, and a SIDR follows whose key needs to be 
3; 1879 1936 ! re-expanded, do so at this point. 
3: 1880 1937 2 } 
3; 1881 1938 § IF .FLAGSCRE_EXPAND_KEY] 
: 1882 1939 THEN 
3 ee? Hb 5 RMSEXPAND_KEYD (KEYBUF_ADDR(5), .REC_ADDR + .RECORD_OVHD); 
3; 1885 1908 2 ' Return indicating that some space has been recovered. 
3; 1886 1943 2 : 
: 1887 1944 2 RETURN 1; 
3 1888 1945 1 END; 
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V0e- 000 RMSSQUISH_SIDR ereeen19be $3i6i79 FANS Seeinasoece ve o3o0% 9° (8) | 
PUSHR #*M<R2.R3,R4> : 1554. 
5 O¢ C2 9002 SUBL2 #12, SP : | 
05 07 A : F! 0 BBC #5, 7C(IRAB), 1$ ; 1680 | 
66 9 8 OOD0A BISB2 #32, (REC_ADDR) + 1683 
43 (11 9000 BRB 4$ + 1684 
05 07 Ad 6 f1 OOF 1$ BBC A 7(IRAB), 2$ + 1691 
66 0 8A 00014 BICB2 #32, (REC_ADDR) + 1694 
9 11 00017 BRB + 1695 
04 AE 04 0019 2$ CLRL FLass + 1701 
54 56 DO 0001C MOVL § REC_ADDR, SAVE_REC_ADDR + 1702 
rT) 20 AE DO OOOIF MOVL § BEGIN_OF_SIDR, REC-ADDR : 1712 
51 01 ce 00 3 MNEGL #1, RT + 1713 
00006 0026 SBW  RM$REC_O ; 
08 AE 50 DO 00029 MOVL RO, RETORD_OVHD : 
50 56 08 AE C1 900¢0 ADDL3 RECORD vid REC_ADDR, RO + 1714 
53 50 51 C1 00032 ADDL3 REC_S RO, NERT_REC_ADDR : 
0B 1¢ A? EB 00036 BLBS BB trax 5 ae 3$ + 1721 
7E 1€ AE €E9 OO03A BLBC SCAN + 1723 
03 0087 CA 91 00036 CMPB  =s-«W83( FAB), #3 + 1725 
77 1F 0004 BLSSU 108 : 
64 04 88 00045 3$ BISB2 #4, (SAVE_REC_ADDR) + 1740 
03 0087 CA 91 00048 CMPB s-:«1BS(IFAB)> #3 + 1745 
06 if 0004D BGEQU 5$ ; 
56 54 DO 0004F OVL  SAVE_REC_ADDR, REC_ADDR : 1748 
0100 31 00052 4s: BRW 17$ ~ + 1749 
7E D4 00055 5$: CLRL  =(SP) + 1772 
00006 30 00057 WW - RMSSIDR_FIRST : 
04 CO 0005A ADDL2 SP ; 
6E 50 DO 0005D MOVL RO, FIRST_SIDR : 
5D 00 BE 02 £1 00060 BBC #2. aFIRST SIDR, 11$ : 1779) 
00 BE 95 00065 TSTB = @FARST_SIDR : 1781 
58 18 00068 BGEQ 1 : 
50 04 AS 3C 0006A MOVZWL 4(BKT_ADDR), RO : 1793 
50 55 CO 0006E ADDL2. BKT_A ; 
50 53 D1 00071 CMPL  _NEXT_REC_ADDR, RO : 
04 1F 00074 BLSSU 6$ : 
. 1¢ AZ EB 00076 BLBS § 28(IDX_DFN), 11$ : 1795 
50 00 BE 02 00 EF OO07A 6$ EXTZV #0, #2, @FIRST_SIDR, RO : 1805 
51 6€ DO 00080 MOVL FIRST SIDR, R17 : 1807 
52 05 A041 9E 00083 MOVAB 5(RO)ER1], SCAN_START 3 
54 52 D1 00088 CMPL SCAN_START, SAVE_REC_ADDR : 1809 
10 M3 00088 BGEQU 8S ; 
50 54 52 ¢3 0008D SUBL3 SCAN_START, SAVE_REC_ADDR, RO : 181 
62 50 14 38 90091 SKPC = #20, "RO, (SCAN_STARTY > 181 
02 12 00095 BNEQ 7$ : 
51 D4 00097 CLRL sR : 
51 D5 00099 7$: TSTL = RI + 1816 
25 12 00098 BNEQ 11% : 
50 64 02 00 EF 0009D 8$: EXTZV #0 " (SAVE REC ADDR) > 1826 
52 05 A044 SE O00k¢ MOVAB 5 (RO)CSAVE_REC ADDR), SEAN. START > 1828 
53 52 D1 OOOA CMPL  SCAN_START> RRERT _REC_ADDR : 1830 
10 3 OOAA BGEQU 10$ ; 
50 53 52 ¢ OOAC SUBL3  SCAN_START, NEXT_REC_ADDR, RO > 1833 
62 50 14 : 9080 SKPC = #20, "RO, (SCAN_STARTY > 1836 
02 7 B4 BNEQ  9$ ; 
51 D4 000B6 CLRL sR ; 
51 DS 000B8 9S: TSTL = RI : 1837 
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349 bytes, Routine Base: RMS$RMS3 + 03C7 


; Routine Size: 


14 | 
RM3SDELETE 1b-Se -1984 01:42:30 AX-11 Bliss-32 V4.0-742 Page 46) 
voe~ 00 RMSSQUISH_SIDR 12-88-1386 13 $f 19 RMS.SRCIRMSDELETE.B32;1 ’ (8) | 
| 
: PSECT SUMMARY | 
; Name Bytes Attributes | 
> RMSRMS3 1316 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
| 
: Library Statistics | 
Be og 0 eas PE eee YaRe| 4 sacecces Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 92 2 154 00:00.4 | 
: COMMAND QUALIFIERS 
$ BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RM3DELETE/OBJ=OBJ$:RM3DELETE MSRC$:RM3DELETE/UPDATE=(ENH$:RM3DELETE) 
: 1893 1950 0 
3; Size: 1316 code + 0 data bytes 
; Run Time: 00:33.6 
; Elapsed Time: 01:00.1 
3; Lines/CPU Min: 3483 
; Lexemes/CPU-Min: 15181 
: paneer Used: 163 pages 
; Compilation Complete 
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